summaryrefslogtreecommitdiffstats
path: root/transact.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 /transact.scm
parent5145dd3aa0c02c9fc496d1432fc4410674206e1d (diff)
downloadslib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.tar.gz
slib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.zip
Import Upstream version 3a3upstream/3a3
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)))