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

infix: removing alternate syntax due to use of multiline strings...

db4
John Benediktsson 2013-04-04 15:17:14 -07:00
parent 4d9adeac7e
commit 3c4dbf6ed5
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/infix/infix.factor
View File

@ -112,14 +112,11 @@ M: ast-function infix-codegen
[ arguments>> [ arguments-codegen ] [ length ] bi ] [ arguments>> [ arguments-codegen ] [ length ] bi ]
[ name>> ] bi find-and-check ; [ name>> ] bi find-and-check ;
: [infix-parse ( end -- result/quot ) : parse-infix-quotation ( end -- result/quot )
parse-multiline-string build-infix-ast parse-multiline-string build-infix-ast
infix-codegen prepare-operand ; infix-codegen prepare-operand ;
PRIVATE> PRIVATE>
SYNTAX: [infix SYNTAX: [infix
"infix]" [infix-parse suffix! \ call suffix! ; "infix]" parse-infix-quotation suffix! \ call suffix! ;
SYNTAX: infix[
"]" [infix-parse suffix! \ call suffix! ;