Minor changes + bug fixes

Author: obround

eval/compile.rkt

@@ -73,6 +73,7 @@
     [(list '- x y) (list ival-sub! (alloc-outreg!) x y)]
     [(list '* x y) (list ival-mult! (alloc-outreg!) x y)]
     [(list '/ x y) (list ival-div! (alloc-outreg!) x y)]
+    [(list 'hypot x y) (list ival-hypot! (alloc-outreg!) x y)]
     #;[(list '+ x y) (list ival-add x y)]
     #;[(list '- x y) (list ival-sub x y)]
     #;[(list '* x y) (list ival-mult x y)]

ops/all.rkt

@@ -31,6 +31,7 @@
          ival-sqrt
          ival-cbrt
          ival-hypot
+         ival-hypot!
          ival-exp
          ival-exp2
          ival-expm1

ops/core.rkt

@@ -351,7 +351,7 @@
      (define-values (tmp1 tmp2) (make-endpoint-pair))
      (define abs-lo (epunary! tmp1 mpfr-abs! (ival-lo x) 'up))
      (define abs-hi (epunary! tmp2 mpfr-abs! (ival-hi x) 'up))
-     (ival (endpoint (bf 0) (and xlo! xhi!)) (endpoint-max2 abs-lo abs-hi 'nearest) xerr? xerr)]))
+     (ival (endpoint (bf 0) (and xlo! xhi!)) (endpoint-max2 abs-lo abs-hi 'up) xerr? xerr)]))
 
 ;; These functions execute ival-fabs and ival-neg with input's precision
 (define (ival-max-prec x)