summaryrefslogtreecommitdiff
path: root/module/language/scheme/compile-ghil.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-05-04 10:47:31 +0200
committerAndy Wingo <wingo@pobox.com>2009-05-04 10:47:31 +0200
commit123f8abb2da5ed7b2d8ccd67b3bd3532aa9d257e (patch)
tree8875cca7528e724ec193ff083db451dc1fe339ee /module/language/scheme/compile-ghil.scm
parent41af238146428f5841880f26d84b5dc9ddfad2c4 (diff)
downloadguile-123f8abb2da5ed7b2d8ccd67b3bd3532aa9d257e.tar.gz
replace sc-expand with sc-expand3, removing binding for sc-expand3
* module/ice-9/boot-9.scm (sc-expand3): * module/ice-9/psyntax.scm (sc-expand3): Replace sc-expand with sc-expand3, as expand3 with one argument is the same as sc-expand. * module/ice-9/psyntax-pp.scm: Regenerated. * module/ice-9/compile-psyntax.scm: * module/language/scheme/compile-ghil.scm: Change callers to sc-expand3 to use sc-expand.
Diffstat (limited to 'module/language/scheme/compile-ghil.scm')
-rw-r--r--module/language/scheme/compile-ghil.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/scheme/compile-ghil.scm b/module/language/scheme/compile-ghil.scm
index 689770e8f..5ff16b932 100644
--- a/module/language/scheme/compile-ghil.scm
+++ b/module/language/scheme/compile-ghil.scm
@@ -69,7 +69,7 @@
(and=> (cenv-module e) set-current-module)
(call-with-ghil-environment (cenv-ghil-env e) '()
(lambda (env vars)
- (let ((x (sc-expand3 x 'c '(compile load eval))))
+ (let ((x (sc-expand x 'c '(compile load eval))))
(let ((x (make-ghil-lambda env #f vars #f '()
(translate-1 env #f x)))
(cenv (make-cenv (current-module)