~ chicken-core (chicken-5) 14381303bf6dba97290ca183e229a65e3c4cfa69

commit 14381303bf6dba97290ca183e229a65e3c4cfa69
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Dec 11 01:16:08 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Dec 11 01:16:08 2010 +0100

    typo fixes reported by Kon Lovett

diff --git a/c-backend.scm b/c-backend.scm
index 9df76d5c..7e35c7b7 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -1344,7 +1344,7 @@
       ((c-pointer) (sprintf "C_mpointer_or_false(&~a,(void*)" dest))
       ((integer integer32) (sprintf "C_int_to_num(&~a," dest))
       ((integer64) (sprintf "C_a_double_to_num(&~a," dest))
-      ((size_t) (sprintf "C_int_to_num(%~a,(int)" dest))
+      ((size_t) (sprintf "C_int_to_num(&~a,(int)" dest))
       ((unsigned-integer unsigned-integer32) (sprintf "C_unsigned_int_to_num(&~a," dest))
       ((long) (sprintf "C_long_to_num(&~a," dest))
       ((unsigned-long) (sprintf "C_unsigned_long_to_num(&~a," dest))
diff --git a/types.db b/types.db
index 4032de61..0bbf362d 100644
--- a/types.db
+++ b/types.db
@@ -397,7 +397,7 @@
 (reset-handler (procedure reset-handler (#!optional procedure) procedure))
 (return-to-host (procedure return-to-host () . *))
 (reverse-list->string (procedure reverse-list->string (list) string))
-(set-finalizer! (procedure set-finalizer! (* (procedure (*) . *)) undefined))
+(set-finalizer! (procedure set-finalizer! (* (procedure (*) . *)) *))
 (set-gc-report! (procedure set-gc-report! (*) undefined))
 (set-parameterized-read-syntax! (procedure set-parameterized-read-syntax! (char procedure) undefined))
 (set-port-name! (procedure set-port-name! (port string) undefined))