mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

replace sc-expand with sc-expand3, removing binding for sc-expand3

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-05-04 10:47:31 +02:00
parent 41af238146
commit 123f8abb2d
5 changed files with 13 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/scheme/compile-ghil.scm
View file

@ -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)