General style changes, nothing major
This commit is contained in:
@@ -15,20 +15,20 @@
|
||||
%%
|
||||
|
||||
prog:
|
||||
| EOF { None }
|
||||
| e = expr { Some e }
|
||||
;
|
||||
| EOF { None }
|
||||
| e = expr { Some e }
|
||||
;
|
||||
|
||||
expr:
|
||||
| i = INT { LInt i }
|
||||
| d = DOUBLE {LDouble d}
|
||||
| s = SYM { LSymbol s }
|
||||
| s = STR { LString (String.uppercase_ascii s) }
|
||||
| LPAREN; l = lisp_list_rest { l }
|
||||
| QUOTE; e = expr { LQuoted e}
|
||||
;
|
||||
| i = INT { LInt i }
|
||||
| d = DOUBLE {LDouble d}
|
||||
| s = SYM { LSymbol s }
|
||||
| s = STR { LString (String.uppercase_ascii s) }
|
||||
| LPAREN; l = lisp_list_rest { l }
|
||||
| QUOTE; e = expr { LQuoted e}
|
||||
;
|
||||
|
||||
lisp_list_rest:
|
||||
| RPAREN { LNil }
|
||||
| e = expr; lr = lisp_list_rest { LCons (e, lr) }
|
||||
;
|
||||
| RPAREN { LNil }
|
||||
| e = expr; lr = lisp_list_rest { LCons (e, lr) }
|
||||
;
|
||||
|
Reference in New Issue
Block a user