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

defined identifiers scoped in the current module

Browse source 
* ice-9/psyntax.scm (chi-top-sequence): Wrap defined identifiers with
  the current module.  Fixes http://savannah.gnu.org/bugs/?31472.
This commit is contained in:
Andy Wingo 2011-11-04 19:37:04 +01:00
parent 5b36d6034b
commit 19ef14f9b8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -958,8 +958,9 @@
(let* ((r (cons '("placeholder" . (placeholder)) r)) (let* ((r (cons '("placeholder" . (placeholder)) r))
(ribcage (make-empty-ribcage)) (ribcage (make-empty-ribcage))
(w (make-wrap (wrap-marks w) (cons ribcage (wrap-subst w))))) (w (make-wrap (wrap-marks w) (cons ribcage (wrap-subst w)))))
(define (record-definition! id label) (define (record-definition! id var)
(extend-ribcage! ribcage id label)) (let ((mod (cons 'hygiene (module-name (current-module)))))
(extend-ribcage! ribcage id (wrap var top-wrap mod))))
(define (parse body r w s m esew mod) (define (parse body r w s m esew mod)
(let lp ((body body) (exps '())) (let lp ((body body) (exps '()))
(if (null? body) (if (null? body)