Purge loop.scm from the codebase (no more evil imperative loops)

diff --git a/inc/loop.scm b/inc/loop.scm
deleted file mode 100644 (file)
index a49428f..0000000
--- a/inc/loop.scm
+++ /dev/null
@@ -1,26 +0,0 @@
-; For loop macro
-(define-syntax for
-  (syntax-rules ()
-    ((_ var lst body ...)
-      (let loop ((var (car lst)))
-        body ...
-        (if (< var (cadr lst))
-          (loop (+ var (caddr lst))))))))
-
-; While loop macro
-(define-syntax while
-  (syntax-rules ()
-    ((_ cnd body ...)
-      (if cnd
-        (let loop ()
-          body ...
-          (if cnd (loop)))))))
-
-; Until loop macro
-(define-syntax until
-  (syntax-rules ()
-    ((_ cnd body ...)
-      (let loop ()
-        body ...
-        (if (not cnd) (loop))))))
-