Fix

2008-07-14 04:38:10 -05:00 · 2008-07-14 04:38:10 -05:00 · a135e13540
parent bfa89708ae
commit a135e13540
1 changed files with 2 additions and 2 deletions
--- a/core/optimizer/allot/allot.factor
+++ b/core/optimizer/allot/allot.factor
@ -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 -- ? )