guile-srfi-123

commit e486f2fd5a6ea811db54db5f051105718b2a9b4f
parent c14c331f1becc5aebffec8de45b00699a519ebb6
Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Date:   Sat,  5 Sep 2015 13:35:44 +0200

Code only: don't use expression cond-expand.

Larceny can't deal with it (yet).

Diffstat:
M
tests/srfi-123.sld
 | 
8
++++++--

1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/tests/srfi-123.sld b/tests/srfi-123.sld
@@ -69,7 +69,9 @@
           (test-assert "string" (char=? #\b (ref "abc" 1)))
           (test-assert "vector" (= 1 (ref (vector 0 1 2) 1)))
           (test-assert "record" (= 1 (ref (make-foo 0 1) 'b)))
-          (test-skip (cond-expand ((library (srfi 4)) 0) (else 1)))
+          (cond-expand
+           ((library (srfi 4)) (values))
+           (else               (test-skip 1)))
           (test-assert "srfi-4" (= 1 (ref (s16vector 0 1 2) 1)))
           (test-end "ref")
 
@@ -99,7 +101,9 @@
                                   (= 2 (ref r 'a))))
           (test-assert "bad record assignment"
             (not (guard (err (else #f)) (set! (ref (make-foo 0 1) 'b) 2) #t)))
-          (test-skip (cond-expand ((library (srfi 4)) 0) (else 1)))
+          (cond-expand
+           ((library (srfi 4)) (values))
+           (else               (test-skip 1)))
           (test-assert "srfi-4" (let ((s16v (s16vector 0 1 2)))
                                   (set! (ref s16v 1) 3)
                                   (= 3 (ref s16v 1))))