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

Not really making progress.

Browse source
This commit is contained in:
Simon Brooke 2018-12-30 19:07:07 +00:00
parent 02fe5669d8
commit e7dffcad2c
6 changed files with 66 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/not-working-yet.lisp Normal file
View file

@ -0,0 +1,6 @@
(set! or (lambda values
"True if any of `values` are non-nil."
(cond
((nil? values) nil)
((car values) t)
(t (eval (cons 'or (cdr values)))))))

7
lisp/types.lisp
View file

@ -15,10 +15,3 @@
(set! true? (lambda (o) "True if o is the canonical true value." (= (type o) "TRUE") ) )
(set! write? (lambda (o) "True if o is a write stream." (= (type o) "WRIT") ) )
(set! or (lambda values
"True if any of `values` are non-nil."
(cond ((car values) t) (t (apply 'or (cdr values))))))
(set! number?
(lambda (o)
"I don't yet have an `or` operator