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

svn: r16417

Browse Source
This commit is contained in:
Robby Findler 2009-10-22 23:24:40 +00:00
parent e273dae9b1
commit 40ed4c0e87
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,8 +19,8 @@
(eq? (car g) 'planet)) (eq? (car g) 'planet))
(error "#lang planet disbled") (error "#lang planet disbled")
(old g))))]) (old g))))])
;; FIXME: set the reader guard to disable access to ;; FIXME: do something so that we don't
;; untrusted planet packages. ;; have to disable all planet packages.
(read-language p (lambda () #f))))] (read-language p (lambda () #f))))]
[sync-ports (lambda () [sync-ports (lambda ()
(read-bytes (- (file-position p) init) in))]) (read-bytes (- (file-position p) init) in))])