memoize.scm 179 B

12345678
  1. (define-module (grump memoize)
  2. #:export (lazily))
  3. (define-syntax-rule (lazily expr expr* ...)
  4. (let ((promise (delay expr expr* ...)))
  5. (lambda ()
  6. (force promise))))