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

Fixed a segfault when the system can initialise no more pages.

Browse source 
Still not fixed the `member?` bug.
This commit is contained in:
Simon Brooke 2026-03-18 13:27:19 +00:00
parent 69b199fecd
commit 7d0ce67373
3 changed files with 25 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

4
unit-tests/memberp.sh
View file

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