real-negative-not-inf -- r7rs Type number-negative;number-not-zero-not-nan;number-not-zero;number;number-not-nan;number-negative-or-zero;number-negative-or-zero-not-inf;number-not-inf;real-negative-or-zero;real-not-nan;complex-not-nan;complex;real;real-not-zero-not-nan;complex-not-zero-not-nan;complex-not-zero;real-not-zero;real-not-inf;complex-not-inf;sqrt;number?;integer?;real?;rational?;complex?;exact?;inexact?;exact-integer?;zero?;=;+;-;*;/;expt;square;inexact;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;Note: These definitions consume an input that is a super-type.
(lambda (value) (and (real? value) (negative? value) (not (infinite? value))))