Fix

diff --git a/core/optimizer/allot/allot.factor b/core/optimizer/allot/allot.factor
index 6eae3248c20450ad31fcb9380c57d03bcfd5f881..eff2eafc9b94a61de5d58492099ee8a383c4e4ea 100644 (file)
--- 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 -- ? )