Fix max precision stuff

Author: pavpanchekha

eval/main.rkt

@@ -72,7 +72,8 @@
   (rival-machine-load machine (vector-map ival-real pt))
   (let loop ([iter 0])
     (define-values (good? done? bad? stuck? fvec)
-      (parameterize ([*sampling-iteration* iter])
+      (parameterize ([*sampling-iteration* iter]
+                     [*rival-max-precision* (rival-machine-max-precision machine)])
         (rival-machine-full machine (or hint (rival-machine-default-hint machine)))))
     (cond
       [bad? (raise (exn:rival:invalid "Invalid input" (current-continuation-marks) pt))]

time.rkt

@@ -64,7 +64,9 @@
   (define compile-time (- (current-inexact-milliseconds) start-compile))
 
   ; Baseline and Sollya machines
-  (define baseline-machine (baseline-compile exprs vars discs))
+  (define baseline-machine
+    (parameterize ([*rival-max-precision* 32256])
+      (baseline-compile exprs vars discs)))
 
   (define sollya-machine
     (match (or (equal? (cdr exprs) `((* (fmod (exp x) (sqrt (cos x))) (exp (neg x))))) ; id 65