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

Corrected typo

Browse Source 
svn: r5741
This commit is contained in:
Kathy Gray 2007-03-06 16:50:30 +00:00
parent d34df833fb
commit 40f613d0d2
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/combinator-parser/private-combinator/combinator.scm
View File

@ -154,8 +154,8 @@
(or new-id curr-id) (cons curr-name seen)
(+ old-used used) alts
(if src?
(make-src-lst (position-token-start (res-first-tok old-result))
(position-token-end (res-first-tok old-result)))
(make-src-lst (position-token-start-pos (res-first-tok old-result))
(position-token-end-pos (res-first-tok old-result)))
last-src))])
(cond
[(and (res? rsts) (res-a rsts))