~ chicken-core (chicken-5) db019db299a7eeec19997c8472eb5609411d8baf


commit db019db299a7eeec19997c8472eb5609411d8baf
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 21 06:45:42 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Oct 21 06:45:42 2010 -0400

    [unsigned-]integer wasn't handled everywhere in ffi (thanks to Moritz)

diff --git a/support.scm b/support.scm
index 4c7520b5..d73dba09 100644
--- a/support.scm
+++ b/support.scm
@@ -1089,7 +1089,7 @@
               unsigned-c-string unsigned-c-string* nonnull-unsigned-c-string*
 	      nonnull-c-string c-string* nonnull-c-string* c-string-list c-string-list*) ; pointer and nonnull-pointer are DEPRECATED
 	(words->bytes 1) )
-       ((double number)
+       ((double number integer64 unsigned-integer64)
 	(words->bytes 2) )
        (else
 	(cond [(and (symbol? t) (##sys#hash-table-ref foreign-type-table t))
Trap