fry: Minor factoring

db4
Eduardo Cavazos 2008-07-02 15:57:07 -05:00
parent a45d8a6409
commit d0cddcfc41
1 changed files with 2 additions and 1 deletions

View File

@ -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