From 1cfbcb232f1cc832fdb4ec88183b7183c547b4c4 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 24 Sep 2012 23:07:03 +0900 Subject: [PATCH] s/delete-directory-hierarchy/delete-file-hierarchy/ --- lib/chibi/filesystem.scm | 4 ++-- lib/chibi/filesystem.sld | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/chibi/filesystem.scm b/lib/chibi/filesystem.scm index 00c87eb3..a4f9a3bf 100644 --- a/lib/chibi/filesystem.scm +++ b/lib/chibi/filesystem.scm @@ -1,5 +1,5 @@ ;; filesystem.scm -- additional filesystem utilities -;; Copyright (c) 2009-2011 Alex Shinn. All rights reserved. +;; Copyright (c) 2009-2012 Alex Shinn. All rights reserved. ;; BSD-style license: http://synthcode.com/license.txt ;;> The fundamental directory iterator. Applies @var{kons} to @@ -51,7 +51,7 @@ ;;> Unless optional arg @var{ignore-errors?} is true, raises an error ;;> if any file can't be deleted. -(define (delete-directory-hierarchy dir . o) +(define (delete-file-hierarchy dir . o) (let ((ignore-errors? (and (pair? o) (car o)))) (if (member dir '("" "/")) (error "won't delete unsafe directory" dir)) diff --git a/lib/chibi/filesystem.sld b/lib/chibi/filesystem.sld index dec92f20..d82ffdd7 100644 --- a/lib/chibi/filesystem.sld +++ b/lib/chibi/filesystem.sld @@ -10,7 +10,8 @@ open-input-file-descriptor open-output-file-descriptor delete-file link-file symbolic-link-file rename-file directory-files directory-fold directory-fold-tree - delete-directory-hierarchy create-directory delete-directory + delete-file-hierarchy delete-directory + create-directory current-directory change-directory with-directory open open-pipe make-fifo file-status