Whoops, actually add infinite-loop.scm.

A macro for infinitely looping a procedure in Scheme.

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)