fix

src/api/server.rkt

@@ -285,7 +285,7 @@
           (make-path job-id)))
 
 (define (make-local-error-result herbie-result test job-id)
-  (define expr (prog->fpcore (test-input test)))
+  (define expr (prog->fpcore (test-input test) (test-context test)))
   (define local-error (job-result-backend herbie-result))
   ;; TODO: potentially unsafe if resugaring changes the AST
   (define tree

src/platforms/runtime/libm.rkt

@@ -65,7 +65,8 @@
        (with-syntax ([op op]
                      [name name]
                      [cname cname]
-                     [(var ...) (build-list (length itypes) (lambda (i) (string->symbol (format "x~a" i))))]
+                     [(var ...) (build-list (length itypes)
+                                            (lambda (i) (string->symbol (format "x~a" i))))]
                      [(itype ...) itypes]
                      [(citype ...) (map repr->type itypes)]
                      [cotype (repr->type #'otype)])

src/syntax/syntax.rkt

@@ -398,7 +398,6 @@
                           [spec spec]
                           [core core]
                           [fl-expr fl-expr])
-               (eprintf "~a\n" #'(var ...))
               #'(register-operator-impl! 'id
                                          (context '(var ...)
                                                   (get-representation 'rtype)
@@ -427,6 +426,10 @@
                (set! fl-expr #'expr)
                (loop #'(rest ...))])]
            [(#:fl) (oops! "expected value after keyword `#:fl`" stx)]
+           ; deprecated
+           [(#:operator _ rest ...) (loop #'(rest ...))]
+           [(#:operator) (oops! "expected value after keyword `#:operator`" stx)]
+           ; bad
            [_ (oops! "bad syntax" fields)])))]
     [_ (oops! "bad syntax")]))