← Back to branch summary

~ubuntu-branches/debian/sid/geiser/sid

« back to all changes in this revision

Viewing changes to scheme/racket/geiser/eval.rkt

  • Committer: Package Import Robot
  • Author(s): David Bremner
  • Date: 2012-01-24 20:20:32 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20120124202032-dsmjv26u95clot9i
Tags: 0.1.4-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
scheme/racket/geiser/eval.rkt
47
47
  (let ([output
48
48
         (with-output-to-string
49
49
           (lambda ()
50
 
             (with-handlers ([exn? set-last-error])
51
 
               (call-with-values thunk set-last-result))))])
 
50
             (parameterize ([current-error-port (current-output-port)])
 
51
               (with-handlers ([exn? set-last-error])
 
52
                 (call-with-values thunk set-last-result)))))])
52
53
    (append last-result `((output . ,output)))))
53
54
 
54
55
(define (eval-in form spec lang)