diff options
Diffstat (limited to 'scheme/racket/geiser/eval.rkt')
| -rw-r--r-- | scheme/racket/geiser/eval.rkt | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/scheme/racket/geiser/eval.rkt b/scheme/racket/geiser/eval.rkt index db50ded..1210d22 100644 --- a/scheme/racket/geiser/eval.rkt +++ b/scheme/racket/geiser/eval.rkt @@ -33,14 +33,14 @@ (define current-marks (make-parameter (current-continuation-marks))) (define (get-real-context e) - (let ((ec (continuation-mark-set->context (exn-continuation-marks e))) - (cc (continuation-mark-set->context (current-marks)))) + (let ([ec (continuation-mark-set->context (exn-continuation-marks e))] + [cc (continuation-mark-set->context (current-marks))]) (filter-not (lambda (c) (member c cc)) ec))) (define (display-exn-context c) (define (maybe-display p x) (when x (display p) (display x)) x) (when (and (pair? c) (cdr c)) - (let ((sloc (cdr c))) + (let ([sloc (cdr c)]) (and (maybe-display "" (srcloc-source sloc)) (maybe-display ":" (srcloc-line sloc)) (maybe-display ":" (srcloc-column sloc))) @@ -62,12 +62,12 @@ (define (call-with-result thunk) (set-last-result (void)) - (let ((output + (let ([output (with-output-to-string (lambda () - (parameterize ((current-marks (current-continuation-marks))) - (with-handlers ((exn? set-last-error)) - (call-with-values thunk set-last-result))))))) + (parameterize ([current-marks (current-continuation-marks)]) + (with-handlers ([exn? set-last-error]) + (call-with-values thunk set-last-result)))))]) (append last-result `((output . ,output))))) (define (eval-in form spec lang) @@ -87,7 +87,7 @@ (define compile-file load-file) (define (macroexpand form . all) - (let ((all (and (not (null? all)) (car all)))) + (let ([all (and (not (null? all)) (car all))]) (with-output-to-string (lambda () (pretty-print (syntax->datum ((if all expand expand-once) form))))))) |