first cut at floats

[factor.git] / native / types.c

diff --git a/native/types.c b/native/types.c
index 915057e84aee76fb810e72482a6f6bd5128666d0..35d1d45a4dbd9d01e06d582b15add4ff93fa83c4 100644 (file)
--- a/native/types.c
+++ b/native/types.c
@@ -51,11 +51,11 @@ void type_check(CELL type, CELL tagged)
  * It is up to the caller to fill in the object's fields in a meaningful
  * fashion!
  */
-CELL allot_object(CELL type, CELL length)
+void* allot_object(CELL type, CELL length)
 {
        CELL* object = allot(length);
        *object = tag_header(type);
-       return (CELL)object;
+       return object;
 }
 
 CELL object_size(CELL pointer)