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

guard against planet packages being loaded

Browse Source 
svn: r16487
This commit is contained in:
Robby Findler 2009-10-30 21:50:28 +00:00
parent a49688e5c8
commit b61029e089
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/module-language-tools.ss
View File

@ -91,7 +91,16 @@
(define/public (move-to-new-language) (define/public (move-to-new-language)
(let* ([port (open-input-text-editor this)] (let* ([port (open-input-text-editor this)]
[info-result (with-handlers ((exn:fail? (λ (x) #f))) [info-result (with-handlers ((exn:fail? (λ (x) #f)))
(read-language port (λ () #f)))]) (parameterize ([current-reader-guard
(let ([old (current-reader-guard)])
(lambda (g)
(if (and (pair? g)
(eq? (car g) 'planet))
(error "#lang planet disbled")
(old g))))])
;; FIXME: do something so that we don't
;; have to disable all planet packages.
(read-language port (lambda () #f))))])
(let-values ([(line col pos) (port-next-location port)]) (let-values ([(line col pos) (port-next-location port)])
(unless (equal? (get-text 0 pos) hash-lang-language) (unless (equal? (get-text 0 pos) hash-lang-language)
(set! hash-lang-language (get-text 0 pos)) (set! hash-lang-language (get-text 0 pos))