Fix fry with > 3 holes

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

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