t3x.org / sketchy / library / negativep.html
SketchyLISP
Reference
  Copyright (C) 2006
Nils M Holm

negative?

Conformance: R5RS

Purpose: Check whether a number is negative.

Arguments:
X - number

Implementation:

(define (negative? x)
  (eq? (car (integer->list x)) '-))

Example:

(negative? -567) 
=> #t

See also:
digits, positive?, zero?, abs.