Skip to content

Instantly share code, notes, and snippets.

@chelseatroy

chelseatroy/scheme.rkt

Created November 7, 2019 21:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save chelseatroy/e6fe17aee7327dbb3c08a4e25108d589 to your computer and use it in GitHub Desktop.
Save chelseatroy/e6fe17aee7327dbb3c08a4e25108d589 to your computer and use it in GitHub Desktop.
Download ZIP
When to Evaluate
Raw
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)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment