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)
|