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

fix chaining-language reader bug

Browse Source 
svn: r15908
This commit is contained in:
Matthew Flatt 2009-09-08 00:11:02 +00:00
parent 3ebbd56865
commit 98ce34dd77
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/syntax/module-reader.ss
View File

@ -179,7 +179,7 @@
(lambda (in)
(let ([spec (regexp-try-match #px"^[ \t]+(.*?)(?=\\s|$)" in)])
(and spec
(let ([s (car spec)])
(let ([s (cadr spec)])
(if (equal? s "")
#f
s)))))])
@ -198,7 +198,7 @@
(if parsed-spec
(begin ((current-reader-guard) parsed-spec)
(dynamic-require parsed-spec export-sym (mk-fail-thunk spec)))
(bad (cadr spec) #f)))))
(bad spec #f)))))
(define (-get-info inp mod line col pos)
(let ([r (get inp 'get-info (object-name inp) line col pos