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

scheme/sandbox:

Browse Source 
Updated get-output and get-error-output to function properly regardless of user
language.  Previously, it relied on #%app and #%datum behaving similarly to the
scheme language.

svn: r10251
This commit is contained in:
Carl Eastlund 2008-06-13 14:41:28 +00:00
parent b27b77f18f
commit 4baccff55a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/sandbox.ss
View File

@ -496,7 +496,10 @@
(if src (if src
(filter (lambda (x) (equal? src (syntax-source x))) uncovered) (filter (lambda (x) (equal? src (syntax-source x))) uncovered)
uncovered))])) uncovered))]))
(define (output-getter p) (if (procedure? p) (user-eval `(,p)) p)) (define (output-getter p)
(if (procedure? p)
(user-eval #`(#%app (quote #,p)))
p))
(define input-putter (define input-putter
(case-lambda (case-lambda
[() (input-putter input)] [() (input-putter input)]