Fix fry with > 3 holes

diff --git a/basis/fry/fry-tests.factor b/basis/fry/fry-tests.factor
index 27d5430d337187db396bc38882246730123734fe..0137e8be22b7d159aef81da677225a751f30cac4 100644 (file)
--- a/basis/fry/fry-tests.factor
+++ b/basis/fry/fry-tests.factor
@@ -58,3 +58,7 @@ sequences eval accessors ;
 
 [ "USING: fry kernel ; f '[ >r _ r> ]" eval ]
 [ error>> >r/r>-in-fry-error? ] must-fail-with
+
+[ { { "a" 1 } { "b" 2 } { "c" 3 } { "d" 4 } } ] [
+    1 2 3 4 '[ "a" _ 2array "b" _ 2array "c" _ 2array "d" _ 2array 4array ] call
+] unit-test

diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor
index bab49de1080d23345b69c37f6320dfa5c05d1606..ac036f58ad261ad45cc5b5979d3f3c3d994e73d1 100644 (file)
--- a/basis/fry/fry.factor
+++ b/basis/fry/fry.factor
@@ -17,7 +17,7 @@ ERROR: >r/r>-in-fry-error ;
         { 1 [ [ curry ] ] }
         { 2 [ [ 2curry ] ] }
         { 3 [ [ 3curry ] ] }
-        [ [ curry ] <repetition> ]
+        [ \ curry <repetition> ]
     } case ;
 
 M: >r/r>-in-fry-error summary