11 lines
173 B
Scheme
11 lines
173 B
Scheme
|
(define-module (barra infinite-loop))
|
||
|
|
||
|
(define-syntax infinite-loop
|
||
|
(syntax-rules ()
|
||
|
((infinite-loop procedure)
|
||
|
(do () (#f)
|
||
|
procedure))))
|
||
|
|
||
|
|
||
|
(export infinite-loop)
|