Ekdohibs/camlboot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make PLUS a proper token

Browse Source
This commit is contained in:
Gabriel Scherer 2020-12-20 21:31:14 +01:00 committed by Nathanaël Courant
parent 766606afd2
commit af6a929a60
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
miniml/compiler/compile.scm
View File

@ -83,7 +83,7 @@
(left: EQ BARGT INFIXOP0)
(right: ATAT INFIXOP1)
(right: COLONCOLON)
(left: MINUS INFIXOP2)
(left: PLUS MINUS INFIXOP2)
(left: STAR PERCENT INFIXOP3)
(right: INFIXOP4)
(nonassoc: uminus_prec)
@ -269,6 +269,7 @@
(lident_symb
(COLONEQ) : ":="
(EQ) : "="
(PLUS) : "+"
(MINUS) : "-"
(STAR) : "*"
(PERCENT) : "%"
@ -395,6 +396,7 @@
(expr_no_semi INFIXOP3 expr_no_semi) : (mkapp2 $2 $1 $3)
(expr_no_semi INFIXOP4 expr_no_semi) : (mkapp2 $2 $1 $3)
(expr_no_semi EQ expr_no_semi) : (mkapp2 "=" $1 $3)
(expr_no_semi PLUS expr_no_semi) : (mkapp2 "+" $1 $3)
(expr_no_semi MINUS expr_no_semi) : (mkapp2 "-" $1 $3)
(MINUS expr_no_semi (prec: uminus_prec)) : (mkapp1 "~-" $2)
(expr_no_semi PERCENT expr_no_semi) : (mkapp2 "%" $1 $3)
@ -505,6 +507,7 @@
(cons "||" (cons 'BARBAR #f))
(cons "|>" (cons 'BARGT #f))
(cons "=" (cons 'EQ #f))
(cons "+" (cons 'PLUS #f))
(cons "<-" (cons 'LTMINUS #f))
(cons "-" (cons 'MINUS #f))
(cons "->" (cons 'MINUSGT #f))