factor/native/boolean.h

INLINE CELL tag_boolean(CELL untagged)
{
	return (untagged == false ? F : T);
}

INLINE bool untag_boolean(CELL tagged)
{
	return (tagged == F ? false : true);
}

DLLEXPORT void box_boolean(bool value);
DLLEXPORT bool unbox_boolean(void);