diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm index d89afd12..2bdea07e 100644 --- a/t/r7rs-tests.scm +++ b/t/r7rs-tests.scm @@ -648,14 +648,14 @@ ;; (test #t (= 1 1.0 1.0+0.0i)) ;; (test #f (= 1.0 1.0+1.0i)) -;; (test #t (< 1 2 3)) -;; (test #f (< 1 1 2)) -;; (test #t (> 3.0 2.0 1.0)) -;; (test #f (> -3.0 2.0 1.0)) -;; (test #t (<= 1 1 2)) -;; (test #f (<= 1 2 1)) -;; (test #t (>= 2 1 1)) -;; (test #f (>= 1 2 1)) +(test #t (< 1 2 3)) +(test #f (< 1 1 2)) +(test #t (> 3.0 2.0 1.0)) +(test #f (> -3.0 2.0 1.0)) +(test #t (<= 1 1 2)) +(test #f (<= 1 2 1)) +(test #t (>= 2 1 1)) +(test #f (>= 1 2 1)) ;; From R7RS 6.2.6 Numerical operations: ;;