~ chicken-core (chicken-5) eed2d89be9e9710f0ba3d3a0ac492509c0b75c7b

commit eed2d89be9e9710f0ba3d3a0ac492509c0b75c7b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed May 16 09:04:07 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 16 09:04:07 2012 +0200

    Fix scrutiny type for c-string-list[*] foreign result type
    
    (by Peter Bex)

diff --git a/support.scm b/support.scm
index 8506a885..0ed4839a 100644
--- a/support.scm
+++ b/support.scm
@@ -1285,11 +1285,13 @@
       ((integer long size_t integer32 unsigned-integer32 integer64 unsigned-integer64
 		unsigned-long) 
        'number)
-      ((c-pointer c-string-list c-string-list*)
+      ((c-pointer)
        '(or boolean pointer locative))
       ((nonnull-c-pointer) 'pointer)
       ((c-string c-string* unsigned-c-string unsigned-c-string*)
        '(or boolean string))
+      ((c-string-list c-string-list*)
+       '(list-of string))
       ((nonnull-c-string nonnull-c-string* nonnull-unsigned-c-string*) 'string)
       ((symbol) 'symbol)
       (else