-+ ( x -- -x x )


Vocabulary
opengl.demo-support

Inputs
xan object


Outputs
-xan object
xan object


Definition
USING: kernel math ;

IN: opengl.demo-support

: -+ ( x -- -x x ) [ neg ] keep ;