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

s/delete-directory-hierarchy/delete-file-hierarchy/

Browse source
This commit is contained in:
Alex Shinn 2012-09-24 23:07:03 +09:00
parent 5675b19715
commit 1cfbcb232f
2 changed files with 4 additions and 3 deletions

4
lib/chibi/filesystem.scm
View file

@ -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))

3
lib/chibi/filesystem.sld
View file

@ -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