Ticket #992: getenv.diff

peep.scm

@@ -77 +77 @@
 
 (when (extension-information 'readline)
   (require 'readline)
-  (unless (string=? "dumb" (getenv "TERM"))
+  (unless (string=? "dumb" (get-environment-variable "TERM"))
     (current-input-port (make-gnu-readline-port))
     (gnu-history-install-file-manager
-     (string-append (or (getenv "HOME") ".") "/.peep.history")) ) )
+     (string-append (or (get-environment-variable "HOME") ".") "/.peep.history")) ) )
 
 (define .get)
 (define .set)
@@ -233 +233 @@
    (sprintf "peep(~a)> " *current-pass*)))
 
 (cond ((file-exists? ".peeprc") (load ".peeprc"))
-      ((getenv "HOME") => 
+      ((get-environment-variable "HOME") => 
        (lambda (h)
          (cond ((file-exists? (make-pathname h ".peeprc")) => load) ) ) ) )