Work on exception handling, especially around ratio arithmetic

Much simplified but will break things!
2021-07-25 17:02:28 +01:00 · 2021-07-25 17:02:28 +01:00 · 70d176982b
commit 70d176982b
parent d2101dbd47
14 changed files with 298 additions and 258 deletions
--- a/lisp/defun.lisp
+++ b/lisp/defun.lisp
@ -9,6 +9,11 @@
              (set (car form) (apply 'lambda (cdr form))))
         (t nil))))

+(set! defun!
+      (nlambda
+       form
+       (eval (list 'set! (car form) (cons 'lambda (cdr form))))))
+
 (defun! square (x) (* x x))

 (set! defsp!