real-negative -- r7rs Type number-not-zero-not-nan;number-not-zero;number;number-not-nan;number-negative-or-zero;real-not-nan;complex-not-nan;complex;real;complex-not-zero-not-nan;complex-not-zero;real-not-zero;number?;integer?;real?;rational?;complex?;exact?;inexact?;exact-integer?;zero?;=;+;-;*;/;expt;square;inexact;sqrt;exp;sin;cos;tan;asin;acos;atan;number->string;<;<=;>=;>;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)))