~ chicken-core (chicken-5) fbbd452e90fcda7a23d56d2d6889304e19ff59fc

commit fbbd452e90fcda7a23d56d2d6889304e19ff59fc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jan 19 09:47:13 2011 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jan 19 09:47:13 2011 -0500

    applied patch by Sven Hartrumpf that fixes use of get-environment-variable in helper scripts

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index 75fe2726..634feabd 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -19,7 +19,7 @@
 	  (else
 	   (case (build-platform)
 	     ((mingw32) 
-	      (if (string=? (getenv "MSYSTEM") "MINGW32")
+	      (if (string=? (get-environment-variable "MSYSTEM") "MINGW32")
 		  "mingw-msys"
 		  "mingw32"))
 	     ((msvc) "msvc")
diff --git a/scripts/tools.scm b/scripts/tools.scm
index fe53ae59..6d26c922 100644
--- a/scripts/tools.scm
+++ b/scripts/tools.scm
@@ -20,8 +20,8 @@
 (define *tty* 
   (and (##sys#tty-port? (current-output-port)) 
        (not (feature? #:mingw32))
-       (not (equal? (getenv "EMACS") "t"))
-       (not (equal? (getenv "TERM") "dumb"))))
+       (not (equal? (get-environment-variable "EMACS") "t"))
+       (not (equal? (get-environment-variable "TERM") "dumb"))))
 
 (define *tty-width*
   (or (and *tty*
@@ -390,7 +390,7 @@
 (define -x (conjoin file-exists? file-execute-access?))
 
 (define cwd current-directory)
-(define (cd #!optional d) (if d (current-directory d) (getenv "HOME")))
+(define (cd #!optional d) (if d (current-directory d) (get-environment-variable "HOME")))
 
 (define (with-cwd dir thunk)
   (if (or (not dir) (equal? "." dir))