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

Correction to grammar for advanced; correction to source position

Browse Source 
tracking for repeat-greedy: both correct bug #8940

svn: r7384
This commit is contained in:
Kathy Gray 2007-09-19 16:21:50 +00:00
parent 99184484e1
commit e3d4bed0fe
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/combinator-parser/private-combinator/combinator.scm
View File

@ -540,7 +540,7 @@
(make-repeat-res
(make-res (append a (res-a r)) (res-rest r) repeat-name #f
(+ (res-used curr-ans) (res-used r))
#f (res-first-tok curr-ans))
#f (res-first-tok r))
(repeat-res-stop rest-ans))]
[else
(error 'parser-internal-error9 (format "~a" r))]))])

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

@ -995,8 +995,8 @@
(interface-def
#f
(sequence (tok:extends (comma-sep IDENTIFIER "interfaces")) id "extends")
(repeat-greedy (choose (method-sig-no-abs
(make-field (global-mods access-mods) (value+name-type prim-type) expression #t))
(repeat-greedy (choose ((sequence (method-sig-no-abs SEMI_COLON) id "method header")
(make-field (global-mods access-mods) (value+name-type prim-type) expression #t))
"interface member definition"))))
(define class