steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix

db4
Slava Pestov 2008-07-14 04:38:10 -05:00
parent bfa89708ae
commit a135e13540
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/optimizer/allot/allot.factor
View File

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