Getting closer to tracking down the member bug, but cannot use debugger on laptop screen.
This commit is contained in:
parent
d42ece5711
commit
de50a30be2
11 changed files with 89 additions and 55 deletions
|
|
@ -10,9 +10,7 @@
|
|||
|
||||
(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))
|
||||
(println)
|
||||
"`(member? item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`."
|
||||
(cond
|
||||
((= 0 (count collection)) nil)
|
||||
((= item (car collection)) t)
|
||||
|
|
|
|||
|
|
@ -5,7 +5,7 @@
|
|||
|
||||
(set! member? (lambda
|
||||
(item collection)
|
||||
"`(member item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`."
|
||||
"`(member? item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`."
|
||||
(cond
|
||||
((nil? collection) nil)
|
||||
((= item (car collection)) t)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue