svn: r16417
This commit is contained in:
parent
e273dae9b1
commit
40ed4c0e87
|
@ -19,8 +19,8 @@
|
|||
(eq? (car g) 'planet))
|
||||
(error "#lang planet disbled")
|
||||
(old g))))])
|
||||
;; FIXME: set the reader guard to disable access to
|
||||
;; untrusted planet packages.
|
||||
;; FIXME: do something so that we don't
|
||||
;; have to disable all planet packages.
|
||||
(read-language p (lambda () #f))))]
|
||||
[sync-ports (lambda ()
|
||||
(read-bytes (- (file-position p) init) in))])
|
||||
|
|
Loading…
Reference in New Issue
Block a user