When to Evaluate

scheme.rkt

(define (force-it obj)
  (if (thunk? obj)
      (actual-value (thunk-exp obj) (thunk-env obj))
      obj))

(define (actual-value sexp env)
  (force-it (seval sexp env)))