[Top][All Lists]

[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 <> 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 and
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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]