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

fix bug (that was copied and pasted!) in planet and at-exp readers

Browse Source 
svn: r13733
This commit is contained in:
Matthew Flatt 2009-02-18 23:21:36 +00:00
parent 9858c507fb
commit 3adbe091c3
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/at-exp/lang/reader.ss
View File

@ -10,7 +10,7 @@
get-info) get-info)
(define (at-get in export-sym src line col pos mk-fail-thunk) (define (at-get in export-sym src line col pos mk-fail-thunk)
(let ([spec (regexp-try-match #px"^[ \t]+(.*?)(\\s|$)" in)] (let ([spec (regexp-try-match #px"^[ \t]+(.*?)(?=\\s|$)" in)]
[bad (lambda (str eof?) [bad (lambda (str eof?)
((if eof? ((if eof?
raise-read-eof-error raise-read-eof-error

4
collects/planet/lang/reader.ss
View File

@ -9,7 +9,7 @@
get-info) get-info)
(define (planet-get in lang-mod export-sym src line col pos mk-fail-thunk) (define (planet-get in lang-mod export-sym src line col pos mk-fail-thunk)
(let ([spec (regexp-try-match #px"^[ \t]+(.*?)(\\s|$)" in)] (let ([spec (regexp-try-match #px"^[ \t]+(.*?)(?=\\s|$)" in)]
[bad (lambda (str eof?) [bad (lambda (str eof?)
((if eof? ((if eof?
raise-read-eof-error raise-read-eof-error
@ -35,7 +35,7 @@
(bad (cadr spec) #f)))))) (bad (cadr spec) #f))))))
(define (get-info in mod line col pos) (define (get-info in mod line col pos)
(planet-get in "/lang/langinfo" 'get-info (object-name in) line col pos (planet-get in "/lang/reader" 'get-info (object-name in) line col pos
(lambda (spec) (lambda () (lambda (tag) #f))))) (lambda (spec) (lambda () (lambda (tag) #f)))))
(define (planet-read-fn in read-sym args src mod line col pos) (define (planet-read-fn in read-sym args src mod line col pos)