Re-implement reverse to fix obscure problem
parent
a452dd86f6
commit
8b55b53269
|
@ -697,3 +697,7 @@ DEFER: error-y
|
||||||
<string-reader> "forget-subclass-test" parse-stream
|
<string-reader> "forget-subclass-test" parse-stream
|
||||||
drop
|
drop
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
[ ] [
|
||||||
|
"IN: sequences TUPLE: reversed { seq read-only } ;" eval
|
||||||
|
] unit-test
|
||||||
|
|
|
@ -173,7 +173,12 @@ M: reversed length seq>> length ;
|
||||||
|
|
||||||
INSTANCE: reversed virtual-sequence
|
INSTANCE: reversed virtual-sequence
|
||||||
|
|
||||||
: reverse ( seq -- newseq ) [ <reversed> ] [ like ] bi ;
|
: reverse ( seq -- newseq )
|
||||||
|
[
|
||||||
|
dup [ length ] keep new-sequence
|
||||||
|
[ 0 swap copy ] keep
|
||||||
|
[ reverse-here ] keep
|
||||||
|
] keep like ;
|
||||||
|
|
||||||
! A slice of another sequence.
|
! A slice of another sequence.
|
||||||
TUPLE: slice
|
TUPLE: slice
|
||||||
|
|
Loading…
Reference in New Issue