~ chicken-core (chicken-5) b5ee4976121a123a22e2f319267a961a239424f7

commit b5ee4976121a123a22e2f319267a961a239424f7
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Aug 28 14:56:35 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Aug 28 14:56:35 2011 +0200

    opt. arg to make-pathname may be false

diff --git a/types.db b/types.db
index 865e3cb3..426fc319 100644
--- a/types.db
+++ b/types.db
@@ -1194,7 +1194,7 @@
 (delete-file* (#(procedure #:clean #:enforce) delete-file* (string) *))
 (file-copy (#(procedure #:clean #:enforce) file-copy (string string #!optional * fixnum) fixnum))
 (file-move (#(procedure #:clean #:enforce) file-move (string string #!optional * fixnum) fixnum))
-(make-pathname (#(procedure #:clean #:enforce) make-pathname (* #!optional string string) string))
+(make-pathname (#(procedure #:clean #:enforce) make-pathname (* #!optional (or string boolean) (or string boolean)) string))
 (directory-null? (#(procedure #:clean #:enforce) directory-null? (string) boolean))
 (make-absolute-pathname (#(procedure #:clean #:enforce) make-absolute-pathname (* #!optional string string) string))
 (create-temporary-directory (#(procedure #:clean #:enforce) create-temporary-directory () string))