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

@@ -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)]