suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correction to two parsing bugs

Browse Source 
svn: r9491
This commit is contained in:
Kathy Gray 2008-04-26 15:33:08 +00:00
parent 56734572d1
commit a1370171f1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/comb-parsers/parser-units.scm
View File

@ -330,7 +330,7 @@
(define new-class
(choose ((sequence (new name O_PAREN C_PAREN) id)
(sequence (new name O_PAREN (comma-sep expression@ "arguments") C_PAREN) id))
(sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id))
"class instantiation"))
(define (new-array type-name)
@ -433,7 +433,7 @@
(sequence (super O_PAREN (comma-sep (eta expression) "arguments") C_PAREN SEMI_COLON) id)) "super constructor call"))
(define (block repeat?)
(let ([body (if repeat? (repeat-greedy statement) statement)])
(let ([body (if repeat? (repeat-greedy (eta statement)) (eta statement))])
(sequence (O_BRACE body C_BRACE) id "block statement")))
(define expression-stmt