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

turn on read-accept-reader in the default-sandbox-reader

Browse Source 
svn: r11962
This commit is contained in:
Eli Barzilay 2008-10-07 14:14:59 +00:00
parent 9f3161cf24
commit bbceacae84
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scheme/sandbox.ss
View File

@ -57,11 +57,12 @@
#| no modules here by default |#))) #| no modules here by default |#)))
(define (default-sandbox-reader source) (define (default-sandbox-reader source)
(let loop ([l '()]) (parameterize ([read-accept-reader #t])
(let ([expr (read-syntax source)]) (let loop ([l '()])
(if (eof-object? expr) (let ([expr (read-syntax source)])
(if (eof-object? expr)
(reverse l) (reverse l)
(loop (cons expr l)))))) (loop (cons expr l)))))))
(define sandbox-reader (make-parameter default-sandbox-reader)) (define sandbox-reader (make-parameter default-sandbox-reader))