2009-05-02 05:04:19 -04:00
|
|
|
#include "master.hpp"
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-09-23 14:05:46 -04:00
|
|
|
void factor_vm::box_boolean(bool value)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
2009-10-18 21:26:21 -04:00
|
|
|
dpush(tag_boolean(value));
|
2009-05-02 05:04:19 -04:00
|
|
|
}
|
|
|
|
|
2009-09-23 14:05:46 -04:00
|
|
|
VM_C_API void box_boolean(bool value, factor_vm *myvm)
|
2009-08-17 16:37:06 -04:00
|
|
|
{
|
2009-10-14 14:14:57 -04:00
|
|
|
return myvm->box_boolean(value);
|
2009-08-17 16:37:06 -04:00
|
|
|
}
|
|
|
|
|
2009-09-23 14:05:46 -04:00
|
|
|
VM_C_API bool to_boolean(cell value, factor_vm *myvm)
|
2009-08-17 16:37:06 -04:00
|
|
|
{
|
2009-10-14 14:14:57 -04:00
|
|
|
return myvm->to_boolean(value);
|
2009-08-17 16:37:06 -04:00
|
|
|
}
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
}
|