[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-56-g8d50005

[Mark H Weaver]

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".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=8d5000586849d2997ffd7f88e78cab1e9aebcbbf

The branch, stable-2.0 has been updated
       via  8d5000586849d2997ffd7f88e78cab1e9aebcbbf (commit)
      from  bf9eb54aab23ebe01779ad0bbaab624e6ceb47b2 (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 8d5000586849d2997ffd7f88e78cab1e9aebcbbf
Author: Mark H Weaver <address@hidden>
Date:   Mon Oct 29 19:37:56 2012 -0400

    Minor tweaks to srfi-105.test
    
    * test-suite/tests/srfi-105.test ("curly-infix"): Minor tweaks.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/srfi-105.test |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/srfi-105.test b/test-suite/tests/srfi-105.test
index c4f48aa..99a084b 100644
--- a/test-suite/tests/srfi-105.test
+++ b/test-suite/tests/srfi-105.test
@@ -64,7 +64,7 @@
   (pass-if (equal? '{f(x) + g(y) + h(z)}    '(+ (f x) (g y) (h z))))
   (pass-if (equal? '{(f a b) + (g h)}       '(+ (f a b) (g h))))
   (pass-if (equal? '{f(a b) + g(h)}         '(+ (f a b) (g h))))
-  (pass-if (equal? '{a + f(b) + x}          '(+ a (f b) x)))
+  (pass-if (equal? ''{a + f(b) + x}         ''(+ a (f b) x)))
   (pass-if (equal? '{(- a) / b}             '(/ (- a) b)))
   (pass-if (equal? '{-(a) / b}              '(/ (- a) b)))
   (pass-if (equal? '{cos(q)}                '(cos q)))
@@ -120,7 +120,7 @@
   ;; supports datum labels, specified in SRFI-38 (External
   ;; Representation for Data With Shared Structure).
 
-  ;;(pass-if (equal? '#1=f(#1#)               '#1=(f #1#)))
+  ;;(pass-if (equal? '{#1=f(#1#)}             '#1=(f #1#)))
   ;;(pass-if (equal? '#1={a + . #1#}          '($nfx$ . #1=(a + . #1#))))
 
   (pass-if (equal? '{e()}                   '(e)))


hooks/post-receive
-- 
GNU Guile