~ chicken-core (chicken-5) 1fca9c6e7803020be84107c29aa611763b39f96e

commit 1fca9c6e7803020be84107c29aa611763b39f96e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Nov 10 11:07:24 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Nov 10 11:07:24 2011 +0100

    use equal? in case MSYSTEM is not defined (makedist.scm)

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index 11158a65..7fa8e935 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -19,7 +19,7 @@
 	  (else
 	   (case (build-platform)
 	     ((mingw32) 
-	      (if (string=? (get-environment-variable "MSYSTEM") "MINGW32")
+	      (if (equal? (get-environment-variable "MSYSTEM") "MINGW32")
 		  "mingw-msys"
 		  "mingw32"))
 	     ((msvc) "msvc")