layours.hpp: Don't need RETAG here. Found by @mrjbq7. Fixes #637.
parent
39dc58a5a8
commit
a1ef43a42f
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue