summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2012-10-29 19:37:56 -0400
committerMark H Weaver <mhw@netris.org>2012-10-29 19:37:56 -0400
commit8d5000586849d2997ffd7f88e78cab1e9aebcbbf (patch)
tree5b02fec2e3d4c44caf6f14dbc8246ac9002650d4
parentbf9eb54aab23ebe01779ad0bbaab624e6ceb47b2 (diff)
downloadguile-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.test4
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)))