layours.hpp: Don't need RETAG here. Found by @mrjbq7. Fixes #637.

db4
Doug Coleman 2013-03-29 17:20:08 -07:00
parent 39dc58a5a8
commit a1ef43a42f
1 changed files with 1 additions and 1 deletions

View File

@ -130,7 +130,7 @@ inline static fixnum untag_fixnum(cell tagged)
inline static cell tag_fixnum(fixnum untagged)
{
return RETAG(untagged << TAG_BITS,FIXNUM_TYPE);
return (untagged << TAG_BITS) | FIXNUM_TYPE;
}
#define NO_TYPE_CHECK static const cell type_number = TYPE_COUNT