Minor tweaks to srfi-105.test

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

diff --git a/test-suite/tests/srfi-105.test b/test-suite/tests/srfi-105.test
index c4f48aa..99a084b 100644 (file)
--- 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)))