Negation not working correctly

[ptdecker]

Negation is not working correctly:

> (- -4)
-4

The workaround for this is to handle negation as:

> (define (negate x) (* -1 x))
ok
> (negate -4)
4
> (negate 4)
-4