~ chicken-core (chicken-5) da35cadba892e74619fd1185811699526a7eaa60

commit da35cadba892e74619fd1185811699526a7eaa60
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Feb 20 13:56:19 2022 +0100
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Thu Mar 10 09:24:24 2022 +0100

    Make type spec for "make-abolute-pathname" more specific. (Patch by "siiky")
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/types.db b/types.db
index efc15036..e1de2124 100644
--- a/types.db
+++ b/types.db
@@ -1577,7 +1577,7 @@
 (chicken.pathname#decompose-directory (#(procedure #:clean #:enforce) chicken.pathname#decompose-directory (string) * * *))
 (chicken.pathname#decompose-pathname (#(procedure #:clean #:enforce) chicken.pathname#decompose-pathname (string) * * *))
 (chicken.pathname#directory-null? (#(procedure #:clean #:enforce) chicken.pathname#directory-null? (string) boolean))
-(chicken.pathname#make-absolute-pathname (#(procedure #:clean #:enforce) chicken.pathname#make-absolute-pathname (* #!optional string string) string))
+(chicken.pathname#make-absolute-pathname (#(procedure #:clean #:enforce) chicken.pathname#make-absolute-pathname ((or string (list-of string) false) #!optional (or string false) (or string false)) string))
 (chicken.pathname#make-pathname (#(procedure #:clean #:enforce) chicken.pathname#make-pathname ((or string (list-of string) false) #!optional (or string false) (or string false)) string))
 (chicken.pathname#normalize-pathname (#(procedure #:clean #:enforce) chicken.pathname#normalize-pathname (string #!optional symbol) string))
 (chicken.pathname#pathname-directory (#(procedure #:clean #:enforce) chicken.pathname#pathname-directory (string) *))