cleanup and sicp file, but crashes

2019-04-23 21:20:46 +02:00
parent b978f8b2b2
commit c8807a04b2
11 changed files with 498 additions and 130 deletions
@@ -41,14 +41,15 @@
 ;;      (print "\nbb\n")
 ;;      (pair 'define (pair name value)))))

-;; (define-syntax cond (:rest clauses)
-;;   (define (rec clauses)
-;;     (if (= nil clauses)
-;;         nil
-;;       (list 'if (first (first clauses))
-;;             (pair 'prog (rest (first clauses)))
-;;             (rec (rest clauses)))))
-;;   (rec clauses))
+;; TODO(Felix): else symbol
+(define-syntax (cond :rest clauses)
+  (define (rec clauses)
+    (if (= nil clauses)
+        nil
+      (list 'if (first (first clauses))
+            (pair 'prog (rest (first clauses)))
+            (rec (rest clauses)))))
+  (rec clauses))

 (define (nil? x)
  "Checks if the argument is nil."