From 237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:34 -0800
Subject: Import Upstream version 3a3

---
 scheme2c.init | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

(limited to 'scheme2c.init')

diff --git a/scheme2c.init b/scheme2c.init
index 057dc76..1bfbde4 100644
--- a/scheme2c.init
+++ b/scheme2c.init
@@ -13,7 +13,7 @@
 
 ;; Of course, if you make serious use of library functions you'll want
 ;; to compile them and  use Scheme->C modules.
-(define (software-type) 'UNIX)
+(define (software-type) 'unix)
 
 ;;; (scheme-implementation-type) should return the name of the scheme
 ;;; implementation loading this file.
@@ -31,18 +31,18 @@
 
 (define (implementation-vicinity)
   (case (software-type)
-    ((UNIX)	"/usr/local/lib/scheme/")
-    ((VMS)	"scheme$src:")
-    ((MS-DOS)	"C:\\scheme\\")))
+    ((unix)	"/usr/local/lib/scheme/")
+    ((vms)	"scheme$src:")
+    ((ms-dos)	"C:\\scheme\\")))
 
 ;;; (library-vicinity) should be defined to be the pathname of the
 ;;; directory where files of Scheme library functions reside.
 (define library-vicinity
   (let ((library-path
 	 (case (software-type)
-	   ((UNIX) "/usr/local/lib/slib/")
-	   ((VMS) "lib$scheme:")
-	   ((MS-DOS) "C:\\SLIB\\")
+	   ((unix) "/usr/local/lib/slib/")
+	   ((vms) "lib$scheme:")
+	   ((ms-dos) "C:\\SLIB\\")
 	   (else ""))))
     (lambda () library-path)))
 
@@ -53,7 +53,7 @@
   (let ((home (getenv "HOME")))
     (and home
 	 (case (software-type)
-	   ((UNIX COHERENT MS-DOS)	;V7 unix has a / on HOME
+	   ((unix coherent ms-dos)	;V7 unix has a / on HOME
 	    (if (eqv? #\/ (string-ref home (+ -1 (string-length home))))
 		home
 		(string-append home "/")))
@@ -63,7 +63,7 @@
 ;@
 (define (user-vicinity)
   (case (software-type)
-    ((VMS)	"[.]")
+    ((vms)	"[.]")
     (else	"")))
 
 (define *load-pathname* #f)
@@ -71,12 +71,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))
 	    "/"))))
@@ -95,7 +95,7 @@
 ;@
 (define sub-vicinity
   (case (software-type)
-    ((VMS) (lambda
+    ((vms) (lambda
 	       (vic name)
 	     (let ((l (string-length vic)))
 	       (if (or (zero? (string-length vic))
@@ -105,10 +105,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*))))))
 ;@
@@ -229,13 +229,13 @@
 ;;; (FILE-EXISTS? <string>)
 (define (file-exists? f)
   (case (software-type)
-    ((UNIX) (zero? (system (string-append "test -f " f))))
+    ((unix) (zero? (system (string-append "test -f " f))))
     (else (slib:error "FILE-EXISTS? not defined for " software-type))))
 
 ;;; (DELETE-FILE <string>)
 (define (delete-file f)
   (case (software-type)
-    ((UNIX) (zero? (system (string-append "rm " f))))
+    ((unix) (zero? (system (string-append "rm " f))))
     (else (slib:error "DELETE-FILE not defined for " software-type))))
 
 ;;; FORCE-OUTPUT flushes any pending output on optional arg output port
@@ -400,7 +400,7 @@
 ;;; Here for backward compatability
 (define scheme-file-suffix
   (let ((suffix (case (software-type)
-		  ((NOSVE) "_scm")
+		  ((nosve) "_scm")
 		  (else ".scm"))))
     (lambda () suffix)))
 
-- 
cgit v1.2.3