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

Correction to bug 8797

Browse Source 
svn: r6839
This commit is contained in:
Kathy Gray 2007-07-07 16:48:43 +00:00
parent d48873795e
commit 983ee966da
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -426,7 +426,14 @@
(cond
[(null? corrects)
(fail-res input
(make-choice-fail (rank-choice (map fail-type-chance fails)) #f name
(make-choice-fail (rank-choice (map fail-type-chance fails))
(if (or (null? input)
(not (position-token? (car input))))
last-src
(update-src-end
last-src
(position-token-end-pos (car input))))
name
(rank-choice (map fail-type-used fails))
(rank-choice (map fail-type-may-use fails))
num-choices choice-names fails))]

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

@ -91,7 +91,7 @@
(instanceof "instancef" "instanceo" "intsanceof")
(if "fi")
(else "lse" "ese" "els" "eles")
(return "eturn" "rturn" "reurn" "retrn" "retun" "retur" "reutrn" "retrun" "returns")
(return "eturn" "rturn" "reurn" "retrn" "retun" "retur" "reutrn" "retrun" "returns" "raturn")
(true "rue" "tue" "tre" "tru" "ture" "treu")
(false "flse" "fase" "fale" "fals" "flase" "fasle")
(interface