vm/booleans.hpp

   1 namespace factor
   2 {
   3
   4 VM_C_API void box_boolean(bool value, factor_vm *vm);
   5 VM_C_API bool to_boolean(cell value, factor_vm *vm);
   6
   7 inline cell factor_vm::tag_boolean(cell untagged)
   8 {
   9         return (untagged ? true_object : false_object);
  10 }
  11
  12 inline bool factor_vm::to_boolean(cell value)
  13 {
  14         return value != false_object;
  15 }
  16
  17 }