chickadee » sicp » with-primitive-procedures

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))))