From 69d4f1c761291d2c33c4b22454877402465b2c48 Mon Sep 17 00:00:00 2001
From: "Thomas Bushnell, BSG" <tb@debian.org>
Date: Sun, 4 Dec 2005 20:03:34 -0800
Subject: Import Debian changes 3a2-3

slib (3a2-3) unstable; urgency=low

  * Brought all source files up-to-date with upstream CVS.
  Repeat changes from version 3a2-1 in Makefile.
---
 mitscheme.init | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'mitscheme.init')

diff --git a/mitscheme.init b/mitscheme.init
index 9768155..6283230 100644
--- a/mitscheme.init
+++ b/mitscheme.init
@@ -9,7 +9,7 @@
 
 ;;; (software-type) should be set to the generic operating system type.
 (define (software-type)
-  (if (eq? 'unix microcode-id/operating-system) 'UNIX 'MS-DOS))
+  (if (eq? 'unix microcode-id/operating-system) 'unix 'ms-dos))
 
 ;;; (scheme-implementation-type) should return the name of the scheme
 ;;; implementation loading this file.
@@ -56,8 +56,8 @@
 	 (or (getenv "SCHEME_LIBRARY_PATH")
 	     ;; Use this path if your scheme does not support GETENV.
 	     (case (software-type)
-	       ((MS-DOS) "c:\\slib\\")
-	       ((UNIX) "/usr/local/lib/slib/")
+	       ((ms-dos) "c:\\slib\\")
+	       ((unix) "/usr/local/lib/slib/")
 	       (else "")))))
     (lambda () library-path)))
 
@@ -72,7 +72,7 @@
 ;@
 (define (user-vicinity)
   (case (software-type)
-    ((VMS)	"[.]")
+    ((vms)	"[.]")
     (else	"")))
 
 (define *load-pathname* #f)
@@ -80,12 +80,12 @@
 (define vicinity:suffix?
   (let ((suffi
 	 (case (software-type)
-	   ((AMIGA)				'(#\: #\/))
-	   ((MACOS THINKC)			'(#\:))
-	   ((MS-DOS WINDOWS ATARIST OS/2)	'(#\\ #\/))
-	   ((NOSVE)				'(#\: #\.))
-	   ((UNIX COHERENT PLAN9)		'(#\/))
-	   ((VMS)				'(#\: #\]))
+	   ((amiga)				'(#\: #\/))
+	   ((macos thinkc)			'(#\:))
+	   ((ms-dos windows atarist os/2)	'(#\\ #\/))
+	   ((nosve)				'(#\: #\.))
+	   ((unix coherent plan9)		'(#\/))
+	   ((vms)				'(#\: #\]))
 	   (else
 	    (slib:warn "require.scm" 'unknown 'software-type (software-type))
 	    "/"))))
@@ -104,7 +104,7 @@
 ;@
 (define sub-vicinity
   (case (software-type)
-    ((VMS) (lambda
+    ((vms) (lambda
 	       (vic name)
 	     (let ((l (string-length vic)))
 	       (if (or (zero? (string-length vic))
@@ -114,10 +114,10 @@
 				  "." name "]")))))
     (else (let ((*vicinity-suffix*
 		 (case (software-type)
-		   ((NOSVE) ".")
-		   ((MACOS THINKC) ":")
-		   ((MS-DOS WINDOWS ATARIST OS/2) "\\")
-		   ((UNIX COHERENT PLAN9 AMIGA) "/"))))
+		   ((nosve) ".")
+		   ((macos thinkc) ":")
+		   ((ms-dos windows atarist os/2) "\\")
+		   ((unix coherent plan9 amiga) "/"))))
 	    (lambda (vic name)
 	      (string-append vic name *vicinity-suffix*))))))
 ;@
-- 
cgit v1.2.3