Whoops, actually add infinite-loop.scm.

A macro for infinitely looping a procedure in Scheme.
This commit is contained in:
Barra Ó Catháin 2023-03-11 00:02:38 +00:00
parent 97f5c9b02a
commit 5edc89248b
1 changed files with 10 additions and 0 deletions

10
infinite-loop.scm Normal file
View File

@ -0,0 +1,10 @@
(define-module (barra infinite-loop))
(define-syntax infinite-loop
(syntax-rules ()
((infinite-loop procedure)
(do () (#f)
procedure))))
(export infinite-loop)