first cut at floats

[factor.git] / native / word.c

diff --git a/native/word.c b/native/word.c
index 7a812938782be345b322144280ab0efcc5bef9e0..ebf765458d814f8f701a9fc4718eadc1fe0d03e6 100644 (file)
--- a/native/word.c
+++ b/native/word.c
@@ -2,7 +2,7 @@
 
 WORD* word(CELL primitive, CELL parameter, CELL plist)
 {
-       WORD* word = (WORD*)allot_object(WORD_TYPE,sizeof(WORD));
+       WORD* word = allot_object(WORD_TYPE,sizeof(WORD));
        word->xt = primitive_to_xt(primitive);
        word->primitive = primitive;
        word->parameter = parameter;