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

positive?

Conformance: R5RS Scheme

Purpose: Check whether a number is positive.

Arguments:
X - number

Implementation:

(define (positive? x)
  (eq? (or (negative? x)
           (zero? x))
       #f))

Example:

(positive? 567) 
=> #t

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