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

Working on the member? bug. No fix, but some improvements in debug message format.

Browse source 
The bug is actually either in `cond` or in `cdr`, but I'm finding it extremely hard
to trace.
This commit is contained in:
Simon Brooke 2026-03-18 11:53:48 +00:00
parent 109d400f00
commit 54a99b6796
3 changed files with 24 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

18
unit-tests/memberp.sh
View file

@ -3,7 +3,7 @@
result=0
expected='t'
output=`target/psse <<EOF
output=`target/psse $1 <<EOF
(progn
(set! nil? (lambda (o) (= (type o) "NIL ")))
(set! member?
@ -17,7 +17,7 @@ output=`target/psse <<EOF
EOF`
actual=`echo $output | tail -1`
echo -n "$?: (member? 1 '(1 2 3 4))... "
echo -n "$0 $1: (member? 1 '(1 2 3 4))... "
if [ "${expected}" = "${actual}" ]
then
@ -28,7 +28,7 @@ else
fi
expected='t'
output=`target/psse <<EOF
output=`target/psse $1 <<EOF
(progn
(set! nil? (lambda (o) (= (type o) "NIL ")))
(set! member?
@ -42,7 +42,7 @@ output=`target/psse <<EOF
EOF`
actual=`echo $output | tail -1`
echo -n "$?: (member? 4 '(1 2 3 4))... "
echo -n "$0: (member? 4 '(1 2 3 4))... "
if [ "${expected}" = "${actual}" ]
then
@ -54,7 +54,7 @@ fi
expected='nil'
output=`target/psse <<EOF
output=`target/psse $1 <<EOF
(progn
(set! nil? (lambda (o) (= (type o) "NIL ")))
(set! member?
@ -68,7 +68,7 @@ output=`target/psse <<EOF
EOF`
actual=`echo $output | tail -1`
echo -n "$?: (member? 5 '(1 2 3 4))... "
echo -n "$0: (member? 5 '(1 2 3 4))... "
if [ "${expected}" = "${actual}" ]
then
@ -79,13 +79,13 @@ else
fi
expected='nil'
output=`target/psse -s100<<EOF
output=`target/psse $1 -s100<<EOF
(progn
(set! nil? (lambda (o) (= (type o) "NIL ")))
(set! member?
(lambda
(item collection)
(print (list "in member?: " 'item item 'collection collection))
;; (print (list "in member?: " 'item item 'collection collection))
(cond
((nil? collection) nil)
((= item (car collection)) t)
@ -94,7 +94,7 @@ output=`target/psse -s100<<EOF
EOF`
actual=`echo $output | tail -1`
echo -n "$?: (member? 5 '(1 2 3 4)) with stack limit... "
echo -n "$0: (member? 5 '(1 2 3 4)) with stack limit... "
if [ "${expected}" = "${actual}" ]
then