-namespace factor
-{
+namespace factor {
-inline static cell tag_boolean(cell untagged)
-{
- return (untagged ? T : F);
-}
-
-VM_C_API void box_boolean(bool value);
-VM_C_API bool to_boolean(cell value);
+// Cannot allocate
+inline static bool to_boolean(cell value) { return value != false_object; }
}