mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-06-10 21:05:11 +02:00
s/delete-directory-hierarchy/delete-file-hierarchy/
This commit is contained in:
parent
5675b19715
commit
1cfbcb232f
2 changed files with 4 additions and 3 deletions
lib/chibi
|
@ -1,5 +1,5 @@
|
||||||
;; filesystem.scm -- additional filesystem utilities
|
;; 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
|
;; BSD-style license: http://synthcode.com/license.txt
|
||||||
|
|
||||||
;;> The fundamental directory iterator. Applies @var{kons} to
|
;;> The fundamental directory iterator. Applies @var{kons} to
|
||||||
|
@ -51,7 +51,7 @@
|
||||||
;;> Unless optional arg @var{ignore-errors?} is true, raises an error
|
;;> Unless optional arg @var{ignore-errors?} is true, raises an error
|
||||||
;;> if any file can't be deleted.
|
;;> 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))))
|
(let ((ignore-errors? (and (pair? o) (car o))))
|
||||||
(if (member dir '("" "/"))
|
(if (member dir '("" "/"))
|
||||||
(error "won't delete unsafe directory" dir))
|
(error "won't delete unsafe directory" dir))
|
||||||
|
|
|
@ -10,7 +10,8 @@
|
||||||
open-input-file-descriptor open-output-file-descriptor
|
open-input-file-descriptor open-output-file-descriptor
|
||||||
delete-file link-file symbolic-link-file rename-file
|
delete-file link-file symbolic-link-file rename-file
|
||||||
directory-files directory-fold directory-fold-tree
|
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
|
current-directory change-directory with-directory
|
||||||
open open-pipe make-fifo
|
open open-pipe make-fifo
|
||||||
file-status
|
file-status
|
||||||
|
|
Loading…
Add table
Reference in a new issue