~ chicken-core (chicken-5) e1db62133efadaba206c34f5713ba33bc299e08b

commit e1db62133efadaba206c34f5713ba33bc299e08b
Author:     Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Wed May 30 17:34:47 2012 -0300
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Wed May 30 17:34:47 2012 -0300

    Revert "Check all elements of the list for being a string in make-pathname"
    
    This reverts commit dd18d957edaccd5301875e6b073a873bae8b15cc.
    
    That patch doesn't actually fix the real problem.  See the following
    links for more context information:
    
    * https://bugs.call-cc.org/ticket/855
    * https://bugs.call-cc.org/ticket/751
    * http://lists.nongnu.org/archive/html/chicken-hackers/2012-05/msg00034.html
    * http://lists.nongnu.org/archive/html/chicken-hackers/2012-05/msg00048.html

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