summaryrefslogtreecommitdiffstats
path: root/transact.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 /transact.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 'transact.scm')
-rw-r--r--transact.scm22
1 files changed, 11 insertions, 11 deletions
diff --git a/transact.scm b/transact.scm
index 83b37a7..3533aa3 100644
--- a/transact.scm
+++ b/transact.scm
@@ -148,7 +148,7 @@
(define (file-lock:certificate path)
(or (case (software-type)
- ((UNIX COHERENT PLAN9)
+ ((unix coherent plan9)
(emacs-lock:certificate (emacs-lock:path path)))
(else #f))
(word-lock:certificate (word-lock:path path))))
@@ -225,7 +225,7 @@
(not (file-lock:certificate path))
(let ((wl (word:lock! path email)))
(case (software-type)
- ((UNIX COHERENT PLAN9)
+ ((unix coherent plan9)
;; file-system may not support symbolic links.
(or (and (provided? 'current-time) (emacs:lock! path email))
wl))
@@ -252,7 +252,7 @@
(let ((e-path (emacs-lock:path path)))
(define e-cert (emacs-lock:certificate e-path))
(case (software-type)
- ((UNIX COHERENT PLAN9)
+ ((unix coherent plan9)
(cond ((not (equal? e-cert certificate))
(slib:warn 'file-unlock! e-path 'mismatch certificate)
#f)
@@ -354,8 +354,8 @@
(+ 2 (length args)) 'args))))
(define backup-style (if (null? args) #f (car args)))
(define move (case (software-type)
- ((UNIX COHERENT PLAN9) "mv -f")
- ((MS-DOS WINDOWS OS/2 ATARIST) "MOVE /Y")
+ ((unix coherent plan9) "mv -f")
+ ((ms-dos windows os/2 atarist) "MOVE /Y")
(else (slib:error (software-type) 'move?))))
(define (move? tmpfn path)
(eqv? 0 (system (sprintf #f "%s %#a %#a" move tmpfn path))))
@@ -471,13 +471,13 @@
(define hostname (getenv "HOSTNAME")) ;with domain
(cond ((and user hostname) (string-append user "@" hostname))
(else (case (software-type)
- ;;((AMIGA) )
- ;;((MACOS THINKC) )
- ((MS-DOS WINDOWS OS/2 ATARIST)
+ ;;((amiga) )
+ ;;((macos thinkc) )
+ ((ms-dos windows os/2 atarist)
(windows:user-email-address user hostname))
- ;;((NOSVE) )
- ;;((VMS) )
- ((UNIX COHERENT PLAN9)
+ ;;((nosve) )
+ ;;((vms) )
+ ((unix coherent plan9)
(call-with-tmpnam
(lambda (tmp)
(if (not user) (set! user (system->line "whoami" tmp)))