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)
|
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
|
#define NO_TYPE_CHECK static const cell type_number = TYPE_COUNT
|
||||||
|
|
Loading…
Reference in New Issue