16 lines
293 B
Scheme
16 lines
293 B
Scheme
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
; ,open primitives
|
||
|
|
|
||
|
|
|
||
|
|
(define getenv
|
||
|
|
(let ((buffer (make-string 2000)))
|
||
|
|
(lambda (var-name)
|
||
|
|
(let ((len (vm-extension 26 (cons var-name buffer))))
|
||
|
|
(if len
|
||
|
|
(substring buffer 0 len)
|
||
|
|
#f)))))
|
||
|
|
|
||
|
|
|