Fix specialized-arrays.direct.functor
parent
ddd8c2b67e
commit
1a409b9213
|
@ -27,8 +27,8 @@ TUPLE: A
|
|||
M: A length length>> ;
|
||||
M: A nth-unsafe underlying>> NTH call ;
|
||||
M: A set-nth-unsafe underlying>> SET-NTH call ;
|
||||
M: A like drop dup A instance? [ >A' execute ] unless ;
|
||||
M: A new-sequence drop <A'> execute ;
|
||||
M: A like drop dup A instance? [ >A' ] unless ;
|
||||
M: A new-sequence drop <A'> ;
|
||||
|
||||
INSTANCE: A sequence
|
||||
|
||||
|
|
Loading…
Reference in New Issue