HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix infinite loop in expander
[bpt/guile.git]
/
module
/
ice-9
/
psyntax-pp.scm
diff --git
a/module/ice-9/psyntax-pp.scm
b/module/ice-9/psyntax-pp.scm
index
7ad8a70
..
6029f05
100644
(file)
--- a/
module/ice-9/psyntax-pp.scm
+++ b/
module/ice-9/psyntax-pp.scm
@@
-463,7
+463,14
@@
(values (car b) (cdr b) mod)))))
(let ((n (id-var-name id w mod)))
(cond ((syntax-object? n)
(values (car b) (cdr b) mod)))))
(let ((n (id-var-name id w mod)))
(cond ((syntax-object? n)
- (resolve-identifier n w r mod resolve-syntax-parameters?))
+ (if (not (eq? n id))
+ (resolve-identifier n w r mod resolve-syntax-parameters?)
+ (resolve-identifier
+ (syntax-object-expression n)
+ (syntax-object-wrap n)
+ r
+ (syntax-object-module n)
+ resolve-syntax-parameters?)))
((symbol? n)
(resolve-global
n
((symbol? n)
(resolve-global
n