viron-&gt;alist)
</pre>
<h2>Scheme48</h2>
<pre>(define (get-environment-variable name)
  (cond
    ((lookup-environment-variable name) =&gt; os-string-&gt;string)
    (else #f)))
(define (get-environment-variables)
  (map (lambda (p)
        (cons (os-string-&gt;string (car p)) (os-string-&gt;string (cdr p))))
       (environment-alist)))
</pre>
<h2>scsh</h2>
<pre>(define get-environment-variable getenv)
(define get-environment-variables env-&gt;alist)
</pre>

<h2>SCM</h2>
<pre>(define get-environment-varia