From 4baccff55a4687aa300095604fb989971cd986c1 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Fri, 13 Jun 2008 14:41:28 +0000
Subject: [PATCH] scheme/sandbox: 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
---
 collects/scheme/sandbox.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss
index bc0a2dfe8c..4829cf01a5 100644
--- a/collects/scheme/sandbox.ss
+++ b/collects/scheme/sandbox.ss
@@ -496,7 +496,10 @@
         (if src
             (filter (lambda (x) (equal? src (syntax-source x))) 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
     (case-lambda
      [() (input-putter input)]