~ chicken-core (chicken-5) 9812921577b55737bf5ee79af7bf66993e7c74ac

commit 9812921577b55737bf5ee79af7bf66993e7c74ac
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Feb 17 07:39:26 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Feb 17 07:39:26 2010 +0100

    same for delete-file*

diff --git a/files.scm b/files.scm
index 07d9cb54..ea9adec6 100644
--- a/files.scm
+++ b/files.scm
@@ -68,7 +68,7 @@
   (let ([file-exists? file-exists?]
 	[delete-file delete-file] )
     (lambda (file)
-      (and (file-exists? file) (delete-file file) #t) ) ) )
+      (and (file-exists? file) (delete-file file)) ) ) )
 
 ;;; file-copy and file-move : they do what you'd think.
 (define (file-copy origfile newfile #!optional (clobber #f) (blocksize 1024))