diff --git a/src/api/server.rkt b/src/api/server.rkt index 29ee13c26..becbeb7e5 100644 --- a/src/api/server.rkt +++ b/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 diff --git a/src/platforms/runtime/libm.rkt b/src/platforms/runtime/libm.rkt index bbaf216f5..50e5d79f3 100644 --- a/src/platforms/runtime/libm.rkt +++ b/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)]) diff --git a/src/syntax/syntax.rkt b/src/syntax/syntax.rkt index 3c58b7d31..6dd610260 100644 --- a/src/syntax/syntax.rkt +++ b/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")]))