fry: Minor factoring

2008-07-02 15:57:07 -05:00 · 2008-07-02 15:57:07 -05:00 · d0cddcfc41
parent a45d8a6409
commit d0cddcfc41
1 changed files with 2 additions and 1 deletions
--- a/extra/fry/fry.factor
+++ b/extra/fry/fry.factor
@ -10,9 +10,10 @@ IN: fry
 : _ ( -- * ) "Only valid inside a fry" throw ;

 DEFER: (shallow-fry)
+DEFER: shallow-fry

 : ((shallow-fry)) ( accum quot adder -- result )
-    >r [ ] swap (shallow-fry) r>
+    >r shallow-fry r>
    append swap dup empty? [ drop ] [
        [ prepose ] curry append
    ] if ; inline