chickadee » sicp » with-primitive-procedures

with-primitive-procedures procedures receive-envprocedure

Installs procedures, creates a default environment and calls receive-env with the default environment; this is useful for testing new syntax, etc.

procedures
A key-value list of procedure-names and their primitive counter-part
receive-env
A procedure which takes a fresh environment
(define (with-primitive-procedures procedures receive-env)
  (parameterize
    ((primitive-procedures (append procedures (primitive-procedures))))
    (let ((env (setup-environment))) (receive-env env))))