add fnblock return-from

2024-09-12 19:53:56 +09:00
parent 07300eff7c
commit 5b71814caf
9 changed files with 148 additions and 41 deletions
--- a/lib/lib.lisp
+++ b/lib/lib.lisp
@@ -1,5 +1,5 @@
 (defmacro defun (name args body) 
-		`(define ,name (lambda ,args ,body)))
+		`(define ,name (block ,name (lambda ,args ,body))))

 (defmacro cond (expr . rest)
 	(if (not expr)