index 6ec4088..a48ac6f 100644
--- bind-translator.scm
+++ bind-translator.scm
@@ -272,6 +272,7 @@
     [`(unsigned long . ,more) (values 'unsigned-long more)]
     [`(u32 . ,more) (values 'unsigned-integer32 more)]
     [`(s32 . ,more) (values 'integer32 more)]
+    [`(u64 . ,more) (values 'unsigned-integer64 more)]
     [`(s64 . ,more) (values 'integer64 more)]
     [`(void . ,more) (values 'void more)]
     [`(bool . ,more) (values 'bool more)]
@@ -1193,6 +1208,7 @@
       [(unsigned-int32 unsigned-integer32) (str "C_u32")]
       [(int integer bool) (str "int")]
       [(int32 integer32) (str "C_s32")]
+      [(unsigned-integer64) (str "C_u64")]
       [(integer64) (str "C_s64")]
       [(short) (str "short")]
       [(long) (str "long")]
@@ -1348,7 +1364,7 @@
       ['c-string '<string>]
       [(or 'unsigned-char 'int 'unsigned-int 'short 'unsigned-short 'unsigned-int32 'int32 'integer32)
        '<exact>]
-      [(or 'long 'unsigned-long 'integer32 'integer 'unsigned-integer 'unsigned-integer32 'integer64) '<integer>]
+      [(or 'long 'unsigned-long 'integer32 'integer 'unsigned-integer 'unsigned-integer32 'unsigned-integer64 'integer64) '<integer>]
       [(or 'float 'double) '<inexact>]
       ['number '<number>]
       [('enum _) '<exact>]
diff --git a/c.l b/c.l
index e7018e2..8a5ca02 100644
--- c.l
+++ c.l
@@ -49,13 +49,14 @@ space     [ ]
 "___pointer"                       (tok 'pointer)
 "___u32"                           (tok 'u32)
 "___s32"                           (tok 's32)
+"___u64"                           (tok 'u64)
 "___s64"                           (tok 's64)
 "int64_t"                          (tok 's64)
 "__int64"                          (tok 's64)
 "int32_t"                          (tok 's32)
 "__int32"                          (tok 's32)
 "uint64_t"                         (tok 'u64)
-"uint32_t"                         (tok 'u64)
+"uint32_t"                         (tok 'u32)
 "bool"                             (tok 'bool)
 "___safe"                           (tok 'callback)
 "___scheme_value"                   (tok 'scheme-value)