summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/language/scheme/compile-ghil.scm10
-rw-r--r--module/system/base/compile.scm5
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)))))))