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

fixing carelessness

cvs
Daniel Ehrenberg 2005-02-25 03:53:15 +00:00
parent ecb11bf4fe
commit 56648c2ca5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
contrib/algebra/infix.factor
View File

@ -107,6 +107,7 @@ M: namestack-manip (eval-infix)
over length [ f , [ \ cons , ] times ] make-list over length [ f , [ \ cons , ] times ] make-list
[ list>vector ] append -rot (eval-infix) append ; [ list>vector ] append -rot (eval-infix) append ;
DEFER: fold-consts
: (| f ; parsing : (| f ; parsing
: | reverse f ; parsing : | reverse f ; parsing
: |) reverse infix fold-consts eval-infix swons \ call swons ; parsing : |) reverse infix fold-consts eval-infix swons \ call swons ; parsing