Fix tunnel-visioned code

Author: obround

ops/core.rkt

@@ -419,11 +419,8 @@
     [(-1 1) (mkatan yhi xhi ylo xlo)]
     [(_ 0)
      (define pi-int (ival-pi))
-     (define-values (hi-out lo-out) (make-endpoint-pair))
-     (mpfr-set! hi-out (endpoint-val (ival-hi pi-int)) 'up)
-     (mpfr-neg! lo-out (endpoint-val (ival-hi pi-int)) 'down)
-     (ival (endpoint lo-out #f)
-           (endpoint hi-out #f)
+     (ival (ival-lo (ival-neg pi-int))
+           (ival-hi pi-int)
            (or err? (bfgte? (ival-hi-val x) 0.bf))
            (or err
                (and (bfzero? (ival-lo-val x))

ops/fmod.rkt

@@ -109,8 +109,7 @@
   ;; Use ival-fabs and ival-neg without the precision-changing wrappers
   (define y* (ival-fabs y))
   (cond
-    [(= (mpfr-sign (ival-hi-val x)) -1)
-     (ival-neg (ival-remainder-pos (ival-neg x) y* err? err))]
+    [(= (mpfr-sign (ival-hi-val x)) -1) (ival-neg (ival-remainder-pos (ival-neg x) y* err? err))]
     [(= (mpfr-sign (ival-lo-val x)) 1) (ival-remainder-pos x y* err? err)]
     [else
      (define-values (neg pos) (split-ival x 0.bf))