Whoops, actually add infinite-loop.scm.
A macro for infinitely looping a procedure in Scheme.
This commit is contained in:
parent
97f5c9b02a
commit
5edc89248b
|
@ -0,0 +1,10 @@
|
||||||
|
(define-module (barra infinite-loop))
|
||||||
|
|
||||||
|
(define-syntax infinite-loop
|
||||||
|
(syntax-rules ()
|
||||||
|
((infinite-loop procedure)
|
||||||
|
(do () (#f)
|
||||||
|
procedure))))
|
||||||
|
|
||||||
|
|
||||||
|
(export infinite-loop)
|
Loading…
Reference in New Issue