c4 8;

Author: seckcoder

src/eval/c4_8.scm

@@ -0,0 +1 @@
+; in eval.scm

src/eval/utils/guile.scm

@@ -0,0 +1,18 @@
+(define (assert exp)
+  (if (not exp)
+    (error 'assert "expression is not true")
+    exp)
+  )
+
+(define (print . args)
+  (define (iter args)
+    (if (not (null? args))
+      (begin
+        (display (car args))(display " ")
+        (iter (cdr args))
+        )))
+  (iter args))
+
+(define (println . args)
+  (print args)(newline)
+  )