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

Fix for auto-language.ss: if first line of program contains a snip, read-line fails and needs to be handled.

Browse Source 
svn: r10074
This commit is contained in:
Danny Yoo 2008-06-01 02:23:55 +00:00
parent a5049573a3
commit 516231c1f9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/auto-language.ss
View File

@ -55,6 +55,8 @@
(define (looks-like-new-module-style? text) (define (looks-like-new-module-style? text)
(let* ([tp (open-input-text-editor text 0 'end (lambda (s) s) text #t)] (let* ([tp (open-input-text-editor text 0 'end (lambda (s) s) text #t)]
[l1 (read-line tp)]) [l1 (with-handlers ([exn:fail? (lambda (exn) eof)])
;; If tp contains a snip, read-line fails.
(read-line tp))])
(and (string? l1) (and (string? l1)
(regexp-match #rx"#lang .*$" l1))))) (regexp-match #rx"#lang .*$" l1)))))