Much work, all I think positive, but defun still doesn't work.

This commit is contained in:
Simon Brooke 2018-12-18 21:10:03 +00:00
parent efea0192f3
commit 637d78fb1b
12 changed files with 164 additions and 48 deletions

View file

@ -4,8 +4,8 @@
(nlambda
form
(cond ((symbolp (car form))
(set! (car form) (apply lambda (cdr form)))))
(t nil)))
(set (car form) (apply lambda (cdr form))))
(t nil))))
(defun! square (x) (* x x))