factor/vm/booleans.cpp

#include "master.hpp"

VM_C_API void box_boolean(bool value)
{
	dpush(value ? T : F);
}

VM_C_API bool to_boolean(CELL value)
{
	return value != F;
}
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`#include "master.hpp"`

VM: use better abstractions for tagged pointers, eliminate get()/set() stuff, clean up array, string, and byte-array element access 2009-05-04 02:00:30 -04:00			`VM_C_API void box_boolean(bool value)`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`{`
			`dpush(value ? T : F);`
			`}`

VM: use better abstractions for tagged pointers, eliminate get()/set() stuff, clean up array, string, and byte-array element access 2009-05-04 02:00:30 -04:00			`VM_C_API bool to_boolean(CELL value)`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`{`
			`return value != F;`
			`}`