mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix bound-identifier=? to compare binding names, not just symbolic names.

Browse source 
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.
This commit is contained in:
Mark H Weaver 2013-12-15 19:04:59 -05:00
parent 032a16fced
commit 70c74b8476
3 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -885,6 +885,7 @@
(if (and (syntax-object? i) (syntax-object? j))
(and (eq? (syntax-object-expression i)
(syntax-object-expression j))
(eq? (id-var-name i empty-wrap) (id-var-name j empty-wrap))
(same-marks? (wrap-marks (syntax-object-wrap i))
(wrap-marks (syntax-object-wrap j))))
(eq? i j))))