mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

only ensure local vars for definitions during expansion when compiling

Browse source 
* module/ice-9/psyntax.scm (chi-top): Only modify the compile-time
  environment to indicate that there is a local binding if we are
  running in compile mode. Otherwise some eval-when things might not
  have gotten executed, and our current-module could be wrong.

* module/ice-9/psyntax-pp.scm: Regenerate.
This commit is contained in:
Andy Wingo 2010-05-03 22:06:44 +02:00
parent d61517239d
commit fe58ead4a3
2 changed files with 7812 additions and 7912 deletions
Download patch file Download diff file Expand all files Collapse all files

15721
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

3
module/ice-9/psyntax.scm
View file

@ -1277,7 +1277,8 @@
(case type (case type
((global core macro module-ref) ((global core macro module-ref)
;; affect compile-time environment (once we have booted) ;; affect compile-time environment (once we have booted)
(if (and (not (module-local-variable (current-module) n)) (if (and (memq m '(c c&e))
(not (module-local-variable (current-module) n))
(current-module)) (current-module))
(let ((old (module-variable (current-module) n))) (let ((old (module-variable (current-module) n)))
;; use value of the same-named imported variable, if ;; use value of the same-named imported variable, if