From d7a8ff0a763f0ef4e55e47f6ef6127e03abec21a Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 21 Mar 2014 14:42:30 +0900 Subject: [PATCH] Removing call-with-locked-file for now. --- lib/chibi/filesystem.scm | 9 --------- lib/chibi/filesystem.sld | 1 - 2 files changed, 10 deletions(-) diff --git a/lib/chibi/filesystem.scm b/lib/chibi/filesystem.scm index 0a379560..bb253e9c 100644 --- a/lib/chibi/filesystem.scm +++ b/lib/chibi/filesystem.scm @@ -106,15 +106,6 @@ thunk (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}, ;;> which should be a string indicating the path or a file ;;> descriptor. diff --git a/lib/chibi/filesystem.sld b/lib/chibi/filesystem.sld index df7e964a..b3b28538 100644 --- a/lib/chibi/filesystem.sld +++ b/lib/chibi/filesystem.sld @@ -31,7 +31,6 @@ open/create open/exclusive open/truncate open/append open/non-block file-lock file-truncate - call-with-locked-file lock/shared lock/exclusive lock/non-blocking lock/unlock is-a-tty?) (import (chibi) (chibi string))