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

negative?

Conformance: R5RS Scheme

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.