summaryrefslogtreecommitdiffstats
path: root/batch.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
commit237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 (patch)
tree9832fbdd6fbeedf3fc7f0e7923fe20b7d35b1499 /batch.scm
parent5145dd3aa0c02c9fc496d1432fc4410674206e1d (diff)
downloadslib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.tar.gz
slib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.zip
Import Upstream version 3a3upstream/3a3
Diffstat (limited to 'batch.scm')
-rw-r--r--batch.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/batch.scm b/batch.scm
index 8c122af..0219562 100644
--- a/batch.scm
+++ b/batch.scm
@@ -32,7 +32,7 @@
(lambda (str) 1)))
(define system:success?
(case (software-type)
- ((VMS) (lambda (int) (eqv? 1 int)))
+ ((vms) (lambda (int) (eqv? 1 int)))
(else zero?)))
;;(trace system system:success? exit quit slib:exit)
@@ -471,7 +471,7 @@
)
;@
(define *operating-system*
- (cond ((and (eq? 'UNIX (software-type)) (provided? 'system))
+ (cond ((and (eq? 'unix (software-type)) (provided? 'system))
(let* ((file-name (tmpnam))
(uname (and (system (string-append "uname > " file-name))
(call-with-input-file file-name read)))
@@ -480,11 +480,11 @@
(cond ((and ustr
(> (string-length ustr) 5)
(string-ci=? "cygwin" (substring ustr 0 6)))
- 'GNU-WIN32)
+ 'gnu-win32)
((and ustr
(> (string-length ustr) 4)
(string-ci=? "mingw" (substring ustr 0 5)))
- 'GNU-WIN32)
+ 'gnu-win32)
(ustr uname)
(else (software-type)))))
(else (software-type))))