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

infix: using "if-empty" makes it cleaner.

db4
John Benediktsson 2011-09-21 19:31:26 -07:00
parent 08aa100eb7
commit 7103dfab6b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/infix/infix.factor
View File

@ -82,10 +82,10 @@ M: bad-stack-effect summary
[ 1quotation compose ] [ bad-stack-effect ] if ; [ 1quotation compose ] [ bad-stack-effect ] if ;
: arguments-codegen ( seq -- quot ) : arguments-codegen ( seq -- quot )
dup empty? [ drop [ ] ] [ [ [ ] ] [
[ infix-codegen prepare-operand ] [ infix-codegen prepare-operand ]
[ compose ] map-reduce [ compose ] map-reduce
] if ; ] if-empty ;
M: ast-function infix-codegen M: ast-function infix-codegen
[ arguments>> [ arguments-codegen ] [ length ] bi ] [ arguments>> [ arguments-codegen ] [ length ] bi ]