(let ((x +0.0)(y -0.0))(map (lambda (op)(list (op x y) (op x y)))(list = > <)))=> ((#t #t) (#f #f) (#f #f))
_______________________________________________ Scheme-reports mailing list Scheme-reports@x http://lists.scheme-reports.org/cgi-bin/mailman/listinfo/scheme-reports