;; lazy.lq
;; Lazy (delayed) evaluation, etc.

(define (delay *expr)
  *expr)
  
(define (force delayed-expr)
  (delayed-expr))
  
(define (delayed-expr d)
  (head (lambda-body d)))