summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-12-15 19:04:59 -0500
committerMark H Weaver <mhw@netris.org>2013-12-15 19:04:59 -0500
commit70c74b847680d3b239e591afa2e99c51a712980c (patch)
tree464698222f89790c45942342e3ec01bda572c9bf /test-suite/tests
parent032a16fced2128626e13e6964ea39f1c8fe44091 (diff)
downloadguile-70c74b847680d3b239e591afa2e99c51a712980c.tar.gz
Fix bound-identifier=? to compare binding names, not just symbolic names.
Fixes <http://bugs.gnu.org/16158>. * module/ice-9/psyntax.scm (bound-id=?): Use 'id-var-name' to compare binding names (gensyms), not just symbolic names. * module/ice-9/psyntax-pp.scm: Regenerate. * test-suite/tests/syntax.test: Add test.
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/syntax.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 6fac0ba34..a608af6e2 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1172,6 +1172,11 @@
(r 'outer))
#t)))
+(pass-if "bound-identifier=?"
+ (let* ((x 1) (s1 #'x)
+ (x 2) (s2 #'x))
+ (not (bound-identifier=? s1 s2))))
+
(with-test-prefix "syntax-case"
(pass-if-syntax-error "duplicate pattern variable"