~ chicken-core (chicken-5) 17e01b89925c960f9c4e9565733b8ebc4d0d5744

commit 17e01b89925c960f9c4e9565733b8ebc4d0d5744
Author:     felix <felix@z.(none)>
AuthorDate: Fri Apr 1 14:14:15 2011 +0200
Commit:     felix <felix@z.(none)>
CommitDate: Fri Apr 1 14:14:15 2011 +0200

    object-become! is not enforcing

diff --git a/types.db b/types.db
index 38e11bec..8597621b 100644
--- a/types.db
+++ b/types.db
@@ -1074,7 +1074,7 @@
 (number-of-slots (procedure number-of-slots (*) fixnum)) ;XXX
 
 (object->pointer (procedure object->pointer (*) *))
-(object-become! (procedure! object-become! (list) *))
+(object-become! (procedure object-become! (list) *))
 (object-copy (procedure object-copy (*) *))
 (object-evict (procedure! object-evict (* #!optional (procedure (fixnum) pointer)) *))
 (object-evict-to-location (procedure! object-evict-to-location (* pointer #!optional fixnum) * pointer))