Very minor fixes/
This commit is contained in:
parent
3a1f64d7ff
commit
72a8bc09e0
3 changed files with 4 additions and 11 deletions
|
|
@ -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))))))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue