diff options
author | Andy Wingo <wingo@pobox.com> | 2009-02-09 11:42:27 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-02-09 11:42:27 +0100 |
commit | 989228796043917ad4d445049dc10948ae75853d (patch) | |
tree | 08252de4f03a6b4a8dac49f893b0c65bb104562a /module/language/scheme/compile-ghil.scm | |
parent | 2f9769b60cec324e6d1cb13d8f5690342ac20152 (diff) | |
download | guile-989228796043917ad4d445049dc10948ae75853d.tar.gz |
minor cleanups
* libguile/stacks.c (scm_make_stack): Instead of aborting when we misread
the number of stack frames, just print a warning. I'd like to figure
out what these cases are, exactly.
* module/language/scheme/compile-ghil.scm (lambda): Reindent the lambda
transformer.
* module/system/base/compile.scm (call-with-compile-error-catch): Write
the expression instead of displaying it.
(call-with-output-file/atomic): Don't actually redirect output to this
port, as it's not necessary -- the language-printer should respect the
port that we pass.
Diffstat (limited to 'module/language/scheme/compile-ghil.scm')
-rw-r--r-- | module/language/scheme/compile-ghil.scm | 10 |
1 files changed, 5 insertions, 5 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 |