summaryrefslogtreecommitdiffstats
path: root/scsh.init
diff options
context:
space:
mode:
Diffstat (limited to 'scsh.init')
-rw-r--r--scsh.init30
1 files changed, 15 insertions, 15 deletions
diff --git a/scsh.init b/scsh.init
index 82b24d4..8ce55d8 100644
--- a/scsh.init
+++ b/scsh.init
@@ -5,7 +5,7 @@
;;; (software-type) should be set to the generic operating system type.
;;; UNIX, VMS, MACOS, AMIGA and MS-DOS are supported.
-(define (software-type) 'UNIX)
+(define (software-type) 'unix)
;;; (scheme-implementation-type) should return the name of the scheme
;;; implementation loading this file.
@@ -39,7 +39,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 "/")))
@@ -49,7 +49,7 @@
;@
(define (user-vicinity)
(case (software-type)
- ((VMS) "[.]")
+ ((vms) "[.]")
(else "")))
(define *load-pathname* #f)
@@ -57,12 +57,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))
"/"))))
@@ -81,7 +81,7 @@
;@
(define sub-vicinity
(case (software-type)
- ((VMS) (lambda
+ ((vms) (lambda
(vic name)
(let ((l (string-length vic)))
(if (or (zero? (string-length vic))
@@ -91,10 +91,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*))))))
;@
@@ -345,7 +345,7 @@
;;; Here for backward compatability
(define scheme-file-suffix
(let ((suffix (case (software-type)
- ((NOSVE) "_scm")
+ ((nosve) "_scm")
(else ".scm"))))
(lambda () suffix)))