Much work, all I think positive, but defun still doesn't work.
This commit is contained in:
parent
efea0192f3
commit
637d78fb1b
12 changed files with 164 additions and 48 deletions
|
|
@ -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))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue