Handbook
Glossary
xor* ( obj1 obj2 -- xor first? )
Vocabulary
namespaces
.
extras
Inputs
obj1
an
object
obj2
an
object
Outputs
xor
an
object
first?
an
object
Definition
USING:
kernel
;
IN:
namespaces.extras
:
xor*
( obj1 obj2 -- xor first? )
[
swap
[
2drop
f
f
]
[
f
]
if*
]
[
[
t
]
[
f
f
]
if*
]
if*
;
inline