Very minor fixes/

This commit is contained in:
Simon Brooke 2026-03-01 20:37:16 +00:00
parent 3a1f64d7ff
commit 72a8bc09e0
3 changed files with 4 additions and 11 deletions

View file

@ -11,10 +11,10 @@
(set! member? (lambda
(item collection)
"`(member item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`."
;; (print (list "In member? item is " item "; collection is " collection))
(print (list "In member? item is " item "; collection is " collection))
;; (println)
(cond
((= nil collection) nil)
((= 0 (count collection)) nil)
((= item (car collection)) t)
(t (member? item (cdr collection))))))