mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
defined identifiers scoped in the current module
* 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:
parent
5b36d6034b
commit
19ef14f9b8
1 changed files with 3 additions and 2 deletions
|
@ -958,8 +958,9 @@
|
|||
(let* ((r (cons '("placeholder" . (placeholder)) r))
|
||||
(ribcage (make-empty-ribcage))
|
||||
(w (make-wrap (wrap-marks w) (cons ribcage (wrap-subst w)))))
|
||||
(define (record-definition! id label)
|
||||
(extend-ribcage! ribcage id label))
|
||||
(define (record-definition! id var)
|
||||
(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)
|
||||
(let lp ((body body) (exps '()))
|
||||
(if (null? body)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue