scsh-0.5/misc/getenv.scm

16 lines
292 B
Scheme
Raw Normal View History

; Copyright (c) 1993, 1994 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)))))