diff --git a/extra/fry/fry-tests.factor b/extra/fry/fry-tests.factor index 7586e254b2..eb59ffae4e 100755 --- a/extra/fry/fry-tests.factor +++ b/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 diff --git a/extra/fry/fry.factor b/extra/fry/fry.factor index 1b9e2dc82b..27a321ed92 100755 --- a/extra/fry/fry.factor +++ b/extra/fry/fry.factor @@ -54,7 +54,7 @@ DEFER: (shallow-fry) [ { , namespaces:, @ } member? ] filter length \ , % ] - [ deep-fry % ] bi + [ fry % ] bi ] [ namespaces:, ] if ] each ] [ ] make deep-fry ;