summaryrefslogtreecommitdiffstats
path: root/batch.scm
diff options
context:
space:
mode:
authorThomas Bushnell, BSG <tb@debian.org>2005-12-04 20:03:34 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:33 -0800
commit69d4f1c761291d2c33c4b22454877402465b2c48 (patch)
treee46e0725a432b1f6460515fa521da6bb174bb226 /batch.scm
parentf351d4a6571016e8a571e274032891e06e03911a (diff)
downloadslib-69d4f1c761291d2c33c4b22454877402465b2c48.tar.gz
slib-69d4f1c761291d2c33c4b22454877402465b2c48.zip
Import Debian changes 3a2-3debian/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.
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))))