src/sicp/ex4_11.rkt

   1 #lang racket
   2
   3 (define (make-frame variables values)
   4   (if (not (= (length variables)
   5               (length values)))
   6       (error "Number of variables and values should be the same -- MAKE-FRAME")
   7       (map cons variables values)))
   8
   9 (define (frame-variables frame)
  10   (map car frame))
  11
  12 (define (frame-values frame)
  13   (map cdr frame))
  14
  15 (define (add-binding-to-frame! var val frame)
  16   (set! frame (cons (cons var val) frame)))