Fixed not copying the default keyword args

2018-11-15 15:45:20 +01:00
parent 319d6d2041
commit 3e8f883308
6 changed files with 112 additions and 69 deletions
@@ -1,4 +1,4 @@
-(when 1 (breakpoint))
+;; (when 1 (breakpoint))

 ;; (if (eval 1)
 ;;     (apply prog ((breakpoint)))
@@ -7,3 +7,9 @@
 ;; (if (eval 1)
 ;;     (eval (pair prog ((breakpoint)))))
 ;;   nil))
+
+
+(defun ! (n)
+  (if (< n 2)
+      1
+    (* n (! (- 1 n)))))