factor/vm/booleans.cpp

#include "master.hpp"

namespace factor
{

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"`

Use C++ namespaces 2009-05-04 02:46:13 -04:00			`namespace factor`
			`{`

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);`
			`}`

The great type renaming 2009-05-04 05:50:24 -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;`
			`}`
Use C++ namespaces 2009-05-04 02:46:13 -04:00
			`}`