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

use the Scheme lexer when then module path is bad (or a planet path)

Browse Source 
svn: r15610
This commit is contained in:
Matthew Flatt 2009-07-28 18:41:06 +00:00
parent 12ab7c3aff
commit 8b0b01939a
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/syntax-color/module-lexer.ss
View File

@ -43,14 +43,7 @@
[(eq? 'fail get-info)
(let*-values ([(end-line end-col end-pos) (port-next-location in)])
(values #f 'error #f start-pos end-pos
(lambda (in)
(let-values ([(line col pos) (port-next-location in)])
(if (eof-object? (peek-byte in))
(values #f 'eof #f pos pos)
(begin
(copy-port in (open-output-nowhere))
(let-values ([(end-line end-col end-pos) (port-next-location in)])
(values #f 'other #f pos end-pos))))))))]
scheme-lexer))]
[else
;; Start over using the Scheme lexer
(module-lexer in scheme-lexer)])))]