Slava Pestov 2008-07-14 04:38:10 -05:00
parent bfa89708ae
commit a135e13540
1 changed files with 2 additions and 2 deletions
core/optimizer/allot

View File

@ -59,9 +59,9 @@ IN: optimizer.allot
: <array>-quot ( n -- quot )
[
dup ,
[ nip (array) ] %
[ (array) ] %
[ \ 2dup , , [ swap set-array-nth ] % ] each
\ nip ,
\ 2nip ,
] [ ] make ;
: literal-<array>? ( #call -- ? )