rational-not-zero -- r7rs Type complex-not-zero;number-not-zero;number;complex;real;real-not-inf-not-nan;complex-not-inf-not-nan;number-not-inf-not-nan;number-not-inf;number-not-nan;complex-not-inf;complex-not-nan;real-not-inf;real-not-nan;exact-integer-not-zero;integer-positive;exact-integer-positive;integer-negative;exact-integer-negative;range-length-not-zero;number?;integer?;real?;rational?;complex?;exact?;inexact?;exact-integer?;zero?;=;+;-;*;/;expt;square;inexact;sqrt;exp;log;sin;cos;tan;asin;acos;atan;number->string;<;<=;>=;>;positive?;negative?;abs;floor/;floor-quotient;floor-remainder;truncate/;truncate-quotient;truncate-remainder;min;max;exact;finite?;infinite?;nan?;real-part;imag-part;magnitude;angle;floor;ceiling;truncate;round;rationalize;make-rectangular;make-polar;Note: These definitions consume an input that is a super-type.
(lambda (value) (and (rational? value) (not (zero? value))))