xmode.marker: faster update-match-group

[factor.git] / vm / booleans.hpp

diff --git a/vm/booleans.hpp b/vm/booleans.hpp
index ea16e0536b33d6aafefa02eae2bb9dbb21c375df..6da40cc04cfab77b6e178bfd7710fa60f4fa4c39 100644 (file)
--- a/vm/booleans.hpp
+++ b/vm/booleans.hpp
@@ -1,12 +1,6 @@
-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; }
 
 }