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

fixed another bug in the language recognization code

Browse Source 
svn: r5651
This commit is contained in:
Robby Findler 2007-02-21 00:01:41 +00:00
parent b4be2ce25d
commit 097fb4be88
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/unit.ss
View File

@ -463,7 +463,9 @@ module browser threading seems wrong.
(with-handlers ((exn:fail:read? void))
(let ([found-language? #f])
(let* ([tp (open-input-text-editor this)]
[l (read-line tp)])
[l (with-handlers ([exn:fail:contract? (λ (x) eof)])
;; catch exceptions that occur with GUI syntax in the beginning of the buffer
(read-line tp))])
(unless (eof-object? l)
(unless (regexp-match #rx"[;#]" l) ;; no comments on the first line
(when (equal? #\) (get-character (- (last-position) 1)))