factor/vm/booleans.cpp

12 lines
150 B
C++
Raw Normal View History

2009-05-02 05:04:19 -04:00
#include "master.hpp"
VM_C_API void box_boolean(bool value)
2009-05-02 05:04:19 -04:00
{
dpush(value ? T : F);
}
VM_C_API bool to_boolean(CELL value)
2009-05-02 05:04:19 -04:00
{
return value != F;
}