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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/fry/fry.factor
View File

@ -10,9 +10,10 @@ IN: fry
: _ ( -- * ) "Only valid inside a fry" throw ; : _ ( -- * ) "Only valid inside a fry" throw ;
DEFER: (shallow-fry) DEFER: (shallow-fry)
DEFER: shallow-fry
: ((shallow-fry)) ( accum quot adder -- result ) : ((shallow-fry)) ( accum quot adder -- result )
>r [ ] swap (shallow-fry) r> >r shallow-fry r>
append swap dup empty? [ drop ] [ append swap dup empty? [ drop ] [
[ prepose ] curry append [ prepose ] curry append
] if ; inline ] if ; inline