14 lines
172 B
C
14 lines
172 B
C
|
#include "factor.h"
|
||
|
|
|
||
|
|
/* FFI calls this */
|
||
|
|
void box_boolean(bool value)
|
||
|
|
{
|
||
|
|
dpush(value ? T : F);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* FFI calls this */
|
||
|
|
bool unbox_boolean(void)
|
||
|
|
{
|
||
|
|
return (dpop() != F);
|
||
|
|
}
|