Hi Christian,
On Thu, 24 May 2012 19:15:58 +0200 Christian Kellermann <ck...@pestilenz.org>
wrote:
> The diff below fixes the bug methinks.
Thanks for looking into it.
Wouldn't
diff --git a/files.scm b/files.scm
index 3fae8f5..5c00875 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
be better, since it doesn't traverse the list twice?
Best wishes.
Mario
--
http://parenteses.org/mario
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
