mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Silence warnings for variables created by `generate-temporaries'

Browse source 
* module/ice-9/psyntax.scm (generate-temporaries): Give temporaries the
  current module, so that they may be bound at the top level.

* module/ice-9/psyntax-pp.scm: Regenerate.
This commit is contained in:
Andreas Rottmann 2011-06-17 10:38:47 +02:00 • committed by Andy Wingo
parent 95643853d7
commit 933c6eb795
2 changed files with 1742 additions and 1738 deletions
Download patch file Download diff file Expand all files Collapse all files

3477
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

@ -2428,7 +2428,8 @@
(set! generate-temporaries
(lambda (ls)
(arg-check list? ls 'generate-temporaries)
(map (lambda (x) (wrap (gensym-hook) top-wrap #f)) ls)))
(let ((mod (cons 'hygiene (module-name (current-module)))))
(map (lambda (x) (wrap (gensym-hook) top-wrap mod)) ls))))
(set! free-identifier=?
(lambda (x y)