diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/language/scheme/compile-ghil.scm | 10 | ||||
-rw-r--r-- | module/system/base/compile.scm | 5 |
2 files changed, 7 insertions, 8 deletions
diff --git a/module/language/scheme/compile-ghil.scm b/module/language/scheme/compile-ghil.scm index 1213703a8..9376be48c 100644 --- a/module/language/scheme/compile-ghil.scm +++ b/module/language/scheme/compile-ghil.scm @@ -317,11 +317,11 @@ ;; (lambda FORMALS BODY...) ((,formals . ,body) (receive (syms rest) (parse-formals formals) - (call-with-ghil-environment e syms - (lambda (env vars) - (receive (meta body) (parse-lambda-meta body) - (make-ghil-lambda env l vars rest meta - (trans-body env l body)))))))) + (call-with-ghil-environment e syms + (lambda (env vars) + (receive (meta body) (parse-lambda-meta body) + (make-ghil-lambda env l vars rest meta + (trans-body env l body)))))))) (define-scheme-translator delay ;; FIXME not hygienic diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm index f83834da9..d9abe9d08 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -48,7 +48,7 @@ (format (current-error-port) "~A:~A: ~A: ~A~%" (car loc) (cdr loc) msg exp) (format (current-error-port) - "unknown location: ~A: ~A~%" msg exp))))) + "unknown location: ~A: ~S~%" msg exp))))) ;;; @@ -77,8 +77,7 @@ (lambda () (with-throw-handler #t (lambda () - (with-output-to-port tmp - (lambda () (proc (current-output-port)))) + (proc tmp) (rename-file template filename)) (lambda args (delete-file template))))))) |