2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
|
{
|
|
|
|
|
|
2009-09-23 14:05:46 -04:00
|
|
|
VM_C_API void box_boolean(bool value, factor_vm *vm);
|
|
|
|
|
VM_C_API bool to_boolean(cell value, factor_vm *vm);
|
2009-05-04 02:46:13 -04:00
|
|
|
|
2009-09-29 14:53:10 -04:00
|
|
|
inline cell factor_vm::tag_boolean(cell untagged)
|
|
|
|
|
{
|
|
|
|
|
return (untagged ? T : F);
|
|
|
|
|
}
|
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
}
|
