Whoops, actually add infinite-loop.scm.

A macro for infinitely looping a procedure in Scheme.
2023-03-11 00:02:38 +00:00 · 2023-03-11 00:02:38 +00:00 · 5edc89248b
parent 97f5c9b02a
commit 5edc89248b
1 changed files with 10 additions and 0 deletions
--- a/infinite-loop.scm
+++ b/infinite-loop.scm
@ -0,0 +1,10 @@
+(define-module (barra infinite-loop))
+
+(define-syntax infinite-loop
+  (syntax-rules ()
+	((infinite-loop procedure)
+	 (do () (#f)
+	   procedure))))
+	
+
+(export infinite-loop)