diff options
author | Mark H Weaver <mhw@netris.org> | 2012-10-29 19:37:56 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-10-29 19:37:56 -0400 |
commit | 8d5000586849d2997ffd7f88e78cab1e9aebcbbf (patch) | |
tree | 5b02fec2e3d4c44caf6f14dbc8246ac9002650d4 | |
parent | bf9eb54aab23ebe01779ad0bbaab624e6ceb47b2 (diff) | |
download | guile-8d5000586849d2997ffd7f88e78cab1e9aebcbbf.tar.gz |
Minor tweaks to srfi-105.test
* test-suite/tests/srfi-105.test ("curly-infix"): Minor tweaks.
-rw-r--r-- | 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 c4f48aa16..99a084bb3 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))) |