steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix fry bug

db4
Slava Pestov 2008-05-05 00:11:37 -05:00
parent 74f17be711
commit 3a69f5e895
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/fry/fry-tests.factor
View File

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

2
extra/fry/fry.factor
View File

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