added boolean fns to vm
parent
0f2a89cfbd
commit
25d0bb756f
|
@ -3,14 +3,24 @@
|
|||
namespace factor
|
||||
{
|
||||
|
||||
VM_C_API void box_boolean(bool value)
|
||||
void factorvm::box_boolean(bool value)
|
||||
{
|
||||
dpush(value ? T : F);
|
||||
}
|
||||
|
||||
VM_C_API bool to_boolean(cell value)
|
||||
VM_C_API void box_boolean(bool value)
|
||||
{
|
||||
return vm->box_boolean(value);
|
||||
}
|
||||
|
||||
bool factorvm::to_boolean(cell value)
|
||||
{
|
||||
return value != F;
|
||||
}
|
||||
|
||||
VM_C_API bool to_boolean(cell value)
|
||||
{
|
||||
return vm->to_boolean(value);
|
||||
}
|
||||
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue