factor/vm/booleans.hpp

inline static CELL tag_boolean(CELL untagged)
{
	return (untagged ? T : F);
}

VM_C_API void box_boolean(bool value);
VM_C_API bool to_boolean(CELL value);
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			`inline static CELL tag_boolean(CELL untagged)`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`{`
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			`return (untagged ? T : F);`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`}`

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);`
			`VM_C_API bool to_boolean(CELL value);`