remove useless slot types from copy-state
parent
32450a0575
commit
d55a3a3445
|
@ -271,10 +271,10 @@ ERROR: integer-length-expected obj ;
|
||||||
dup integer? [ integer-length-expected ] unless ; inline
|
dup integer? [ integer-length-expected ] unless ; inline
|
||||||
|
|
||||||
TUPLE: copy-state
|
TUPLE: copy-state
|
||||||
{ src-i integer read-only }
|
{ src-i read-only }
|
||||||
{ src sequence read-only }
|
{ src read-only }
|
||||||
{ dst-i integer read-only }
|
{ dst-i read-only }
|
||||||
{ dst sequence read-only } ;
|
{ dst read-only } ;
|
||||||
|
|
||||||
C: <copy> copy-state
|
C: <copy> copy-state
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue