13 lines
380 B
Scheme
13 lines
380 B
Scheme
#lang scheme/base
|
|
(require srfi/98
|
|
scheme/mpair)
|
|
|
|
(provide get-environment-variable
|
|
(rename-out (mpair:get-environment-variables
|
|
get-environment-variables)))
|
|
|
|
(define (mpair:get-environment-variables)
|
|
(list->mlist (map (lambda (pair)
|
|
(mcons (car pair) (cdr pair)))
|
|
(get-environment-variables))))
|