~ chicken-core (chicken-5) dd18d957edaccd5301875e6b073a873bae8b15cc

commit dd18d957edaccd5301875e6b073a873bae8b15cc
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Thu May 24 19:12:49 2012 +0200
Commit:     Mario Domenech Goulart <mario@ossystems.com.br>
CommitDate: Thu May 24 14:52:38 2012 -0300

    Check all elements of the list for being a string in make-pathname
    
    This fixes #855.
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/files.scm b/files.scm
index 3fae8f52..73414235 100644
--- a/files.scm
+++ b/files.scm
@@ -178,6 +178,7 @@ EOF
       (if (null? strs)
 	  ""
 	  (let ((s1 (car strs)))
+            (##sys#check-string s1 'make-pathname)
 	    (if (zero? (string-length s1))
 		(loop (cdr strs))
 		(string-append