From a135e13540b20c5059ed3c0b04afb7999a3d1de8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 14 Jul 2008 04:38:10 -0500
Subject: [PATCH] Fix

---
 core/optimizer/allot/allot.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/optimizer/allot/allot.factor b/core/optimizer/allot/allot.factor
index 6eae3248c2..eff2eafc9b 100644
--- 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 -- ? )