[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-125-g0b83b

From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-125-g0b83be7
Date: Tue, 17 Dec 2013 03:56:53 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, stable-2.0 has been updated
       via  0b83be7eb64eb11479d2bec867d428afb46b5f58 (commit)
      from  70c74b847680d3b239e591afa2e99c51a712980c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0b83be7eb64eb11479d2bec867d428afb46b5f58
Author: Mark H Weaver <address@hidden>
Date:   Mon Dec 16 22:55:25 2013 -0500

    Revert "Fix bound-identifier=? to compare binding names, not just symbolic 
    This reverts commit 70c74b847680d3b239e591afa2e99c51a712980c.


Summary of changes:
 module/ice-9/psyntax-pp.scm  |    1 -
 module/ice-9/psyntax.scm     |    1 -
 test-suite/tests/syntax.test |    5 -----
 3 files changed, 0 insertions(+), 7 deletions(-)

diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index af5b61b..f5f764b 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -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 '(())))
                 (car (syntax-object-wrap i))
                 (car (syntax-object-wrap j))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 21dce12..fa009d2 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -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))))
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index a608af6..6fac0ba 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1172,11 +1172,6 @@
        (r 'outer))
-(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"

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]