vm/booleans.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 void factorvm::box_boolean(bool value)
   7 {
   8         dpush(value ? T : F);
   9 }
  10
  11 VM_C_API void box_boolean(bool value, factorvm *myvm)
  12 {
  13         ASSERTVM();
  14         return VM_PTR->box_boolean(value);
  15 }
  16
  17 bool factorvm::to_boolean(cell value)
  18 {
  19         return value != F;
  20 }
  21
  22 VM_C_API bool to_boolean(cell value, factorvm *myvm)
  23 {
  24         ASSERTVM();
  25         return VM_PTR->to_boolean(value);
  26 }
  27
  28 }