From 8b0b01939a51067b06eab19a54ee581a8bceaf7b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 28 Jul 2009 18:41:06 +0000 Subject: [PATCH] use the Scheme lexer when then module path is bad (or a planet path) svn: r15610 --- collects/syntax-color/module-lexer.ss | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/collects/syntax-color/module-lexer.ss b/collects/syntax-color/module-lexer.ss index 8d2cf5994f..b40350ee0d 100644 --- a/collects/syntax-color/module-lexer.ss +++ b/collects/syntax-color/module-lexer.ss @@ -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)])))]