Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 06:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removing call-with-locked-file for now.

Browse source
This commit is contained in:
Alex Shinn 2014-03-21 14:42:30 +09:00
parent 99f7f3288b
commit d7a8ff0a76
2 changed files with 0 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/chibi/filesystem.scm
View file

@ -106,15 +106,6 @@
thunk thunk
(lambda () (change-directory pwd))))) (lambda () (change-directory pwd)))))
;;> Calls \var{proc} on a read/write opened file descriptor for
;;> \var{path}, locked with \scheme{file-lock}, and automatically
;;> removes the lock when \var{proc} returns the first time.
(define (call-with-locked-file path proc)
(let ((fd (open path open/read-write)))
(file-lock fd lock/exclusive)
(exception-protect (proc fd) (file-lock fd lock/unlock))))
;;> Returns the \scheme{status} object for the given \var{file}, ;;> Returns the \scheme{status} object for the given \var{file},
;;> which should be a string indicating the path or a file ;;> which should be a string indicating the path or a file
;;> descriptor. ;;> descriptor.

1
lib/chibi/filesystem.sld
View file

@ -31,7 +31,6 @@
open/create open/exclusive open/truncate open/create open/exclusive open/truncate
open/append open/non-block open/append open/non-block
file-lock file-truncate file-lock file-truncate
call-with-locked-file
lock/shared lock/exclusive lock/non-blocking lock/unlock lock/shared lock/exclusive lock/non-blocking lock/unlock
is-a-tty?) is-a-tty?)
(import (chibi) (chibi string)) (import (chibi) (chibi string))