environment.rkt

#lang racket

(define (env)
;; Association list of the current environvment variables and their values.
;;  
;; NB: Both the car and the cdr of the returned cons cells are byte strings,
;; not simply strings. If you're looking for strings, you'll need to do
;; a bit of work.
  (define (names env)
    (environment-variables-names env))
  (define e (current-environment-variables))
  (map (lambda (name)
         (cons name (environment-variables-ref e name)))
       (names e)))
       
(env)