diff --git a/infinite-loop.scm b/infinite-loop.scm
new file mode 100644
index 0000000..766f07a
--- /dev/null
+++ 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)