Put brackets around ipv6 addresses in `inet6 present`

[factor.git] / vm / booleans.hpp

diff --git a/vm/booleans.hpp b/vm/booleans.hpp
index f5310de49877b8cc4fd259768050fbefd5a6bf66..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; }
 
 }