simon/post-scarcity
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Work on the 'member?' bug - (issue #8) -- which turns out to be assoc/interned.

Browse source 
Progress has been made, but this is not fixed.
This commit is contained in:
Simon Brooke 2026-03-18 20:44:18 +00:00
parent 7d0ce67373
commit dc5cac0bd8
4 changed files with 52 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
unit-tests/memberp.sh
View file

@ -53,14 +53,14 @@ else
fi
expected='nil'(CDR )
expected='nil'
output=`target/psse $1 <<EOF
(progn
(set! nil? (lambda (o) (= (type o) "NIL ")))
(set! member?
(lambda
(item collection)
(progn (print (list "In member; collection is:" collection)) (println))
;; (progn (print (list "In member; collection is:" collection)) (println))
(cond
((nil? collection) nil)
((= item (car collection)) t)