chibi-scheme/lib/scheme/lazy.sld
2020-04-10 17:17:29 +09:00

7 lines
184 B
Scheme

(define-library (scheme lazy)
(import (chibi))
(export delay force delay-force make-promise promise?)
(begin
(define (make-promise x)
(if (promise? x) x (delay x)))))