[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH 1/1] (scheme base) member: return #f, not (), for no match
From: |
Rob Browning |
Subject: |
Re: [PATCH 1/1] (scheme base) member: return #f, not (), for no match |
Date: |
Sun, 04 Oct 2020 13:59:59 -0500 |
Rob Browning <rlb@defaultvalue.org> writes:
> Hmm, this causes a failure in r7rs.test. Not sure if I made a mistake,
> or if other code depends on the incorrect behavior. Looking in to it.
Ahh, it just revealed a bug in r7rs.test, i.e.:
diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index 0914f0c5e..1cc8cd31e 100644
--- a/test-suite/tests/r7rs.test
+++ b/test-suite/tests/r7rs.test
@@ -2171,7 +2171,7 @@
(let ((out (open-output-string))
(x (list 1)))
(set-cdr! x x)
- (write x out)
+ (write-shared x out)
(get-output-string out))
;; labels not guaranteed to be 0 indexed, spacing may differ
'("#0=(1 . #0#)" "#1=(1 . #1#)"))
I'll add that to the commit.
--
Rob Browning
rlb @defaultvalue.org and @debian.org
GPG as of 2011-07-10 E6A9 DA3C C9FD 1FF8 C676 D2C4 C0F0 39E9 ED1B 597A
GPG as of 2002-11-03 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 73A4