~ chicken-core (chicken-5) 34bfd2eaa5deae58ce6dea5fda8198a052bb4bc9

commit 34bfd2eaa5deae58ce6dea5fda8198a052bb4bc9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 29 04:25:27 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 29 04:25:27 2011 +0200

    locatives are allows as ffi pointer args

diff --git a/support.scm b/support.scm
index 269a8ac6..bd93e4b6 100644
--- a/support.scm
+++ b/support.scm
@@ -1227,7 +1227,7 @@
 		unsigned-long) 
        'number)
       ((c-pointer c-string-list c-string-list*)
-       '(or boolean pointer))
+       '(or boolean pointer locative))
       ((nonnull-c-pointer) 'pointer)
       ((c-string c-string* unsigned-c-string unsigned-c-string*)
        '(or boolean string))
@@ -1237,7 +1237,7 @@
        (cond ((pair? t)
 	      (case (car t)
 		((ref pointer function c-pointer)
-		 '(or boolean pointer))
+		 '(or boolean pointer locative))
 		((const) (foreign-type->scrutiny-type (cadr t) mode))
 		((enum) 'number)
 		((nonnull-pointer nonnull-c-pointer) 'pointer)