dispenv.scm


1
2
3
4
5
6
7
8
9
10

(import scheme
        (chicken format)
        (chicken process-context)
        srfi-1)

(define (print-env env-cons)
  (printf "~a=~a~%" (car env-cons) (cdr env-cons)))

(let ((env-vars (get-environment-variables)))
  (for-each print-env env-vars))