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

2011-09-21 19:31:26 -07:00 · 2011-09-21 19:31:26 -07:00 · c2226573eb
parent f417ae1e78
commit c2226573eb
1 changed files with 2 additions and 2 deletions
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@ -82,10 +82,10 @@ M: bad-stack-effect summary
    [ 1quotation compose ] [ bad-stack-effect ] if ;

 : arguments-codegen ( seq -- quot )
-    dup empty? [ drop [ ] ] [
+    [ [ ] ] [
        [ infix-codegen prepare-operand ]
        [ compose ] map-reduce
-    ] if ;
+    ] if-empty ;

 M: ast-function infix-codegen
    [ arguments>> [ arguments-codegen ] [ length ] bi ]