From 5edc89248b629348f5cd7d70e77a70fc1b839e2c Mon Sep 17 00:00:00 2001
From: Barry Kane <barra@ocathain.ie>
Date: Sat, 11 Mar 2023 00:02:38 +0000
Subject: [PATCH] Whoops, actually add infinite-loop.scm.

A macro for infinitely looping a procedure in Scheme.
---
 infinite-loop.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 infinite-loop.scm

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)