mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

(scheme base) member: return #f, not (), for no match

Browse source 
* module/scheme/base.scm (member): Match the r7rs requirement, as assoc
  already does.

Thanks to Erik Dominikus for reporting the problem.

Closes: 43304
This commit is contained in:
Rob Browning 2020-10-04 10:43:09 -05:00
parent 7a1cd29637
commit f1547e1d58
3 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/r7rs.test
View file

@ -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#)"))