>From 9e1e4298e13f2af7011cb30ec382350191a280bd Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Mon, 14 May 2012 20:47:55 +0200
Subject: [PATCH] Fix scrutiny type for c-string-list[*] foreign result type
 specifier

---
 support.scm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/support.scm b/support.scm
index 8506a88..0ed4839 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
-- 
1.7.9.1