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

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

Browse source 
This reverts commit 70c74b8476.
This commit is contained in:
Mark H Weaver 2013-12-16 22:55:25 -05:00
parent 70c74b8476
commit 0b83be7eb6
3 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -484,7 +484,6 @@
(lambda (i j)
(if (and (syntax-object? i) (syntax-object? j))
(and (eq? (syntax-object-expression i) (syntax-object-expression j))
(eq? (id-var-name i '(())) (id-var-name j '(())))
(same-marks?
(car (syntax-object-wrap i))
(car (syntax-object-wrap j))))

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

@ -885,7 +885,6 @@
(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))))

5
test-suite/tests/syntax.test
View file

@ -1172,11 +1172,6 @@
(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"