Fix fry bug

extra/fry/fry-tests.factor

@@ -48,3 +48,7 @@ sequences ;
 [ { 1 2 3 } ] [
     3 1 '[ , [ , + ] map ] call
 ] unit-test
+
+[ { 1 { 2 { 3 } } } ] [
+    1 2 3 '[ , [ , [ , 1array ] call 2array ] call 2array ] call
+] unit-test

extra/fry/fry.factor

@@ -54,7 +54,7 @@ DEFER: (shallow-fry)
                     [ { , namespaces:, @ } member? ] filter length
                     \ , <repetition> %
                 ]
-                [ deep-fry % ] bi
+                [ fry % ] bi
             ] [ namespaces:, ] if
         ] each
     ] [ ] make deep-fry ;