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

Very, very nearly ready for 0.0.6. Too tired to press the burron tonight.

Browse source
This commit is contained in:
Simon Brooke 2026-02-27 02:43:21 +00:00
parent b720211b7b
commit 1900bca706
29 changed files with 567 additions and 800 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/defun.lisp
View file

@ -2,13 +2,7 @@
(set! defun!
(nlambda
form
(cond ((symbol? (car form))
(set (car form) (apply 'lambda (cdr form))))
(t nil))))
(set! defun!
(nlambda
"`(defun name arg-list forms...)`: Define an interpreted Lambda function with this `name` and this `arg-list`, whose body is comprised of these `forms`."
form
(eval (list 'set! (car form) (cons 'lambda (cdr form))))))
@ -20,7 +14,7 @@
(cond (symbol? (car form))
(set! (car form) (apply nlambda (cdr form))))))
(defsp! cube (x) ((* x x x)))
(defun! cube (x) (* x x x))
(set! p 5)