Merge pull request #1413 from herbie-fp/autofix-53-1

Automated Resyntax fixes

Author: pavpanchekha

src/api/demo.rkt

@@ -439,7 +439,7 @@
                ([entry (in-list json)])
                (match-define (list pt ex) entry)
                (unless (and (list? pt) (= (length pt) (length var-reprs)))
-                 (error 'json->pcontext "Invalid point ~a" pt))
+                 (raise-arguments-error 'json->pcontext "Invalid point" "pt" pt))
                (values (list->vector (map json->value pt var-reprs)) (json->value ex output-repr))))
   (mk-pcontext pts exs))
 

src/api/sandbox.rkt

@@ -167,7 +167,7 @@
       (match command
         ['improve
          (job-result command test 'timeout (*timeout*) (timeline-extract) #f (warning-log) #f)]
-        [_ (error 'run-herbie "command ~a timed out" command)])))
+        [_ (raise-arguments-error 'run-herbie "command timed out" "command" command)])))
 
   (define (compute-result)
     (parameterize ([*timeline-disabled* (not timeline?)])
@@ -189,7 +189,7 @@
             ['improve (get-alternatives test (get-sample test))]
             ['local-error (get-local-error test pcontext)]
             ['sample (get-sample test)]
-            [_ (error 'compute-result "unknown command ~a" command)]))
+            [_ (raise-arguments-error 'compute-result "unknown command" "command" command)]))
         (timeline-event! 'end)
         (define time (- (current-inexact-milliseconds) start-time))
         (job-result command test 'success time (timeline-extract) #f (warning-log) result))))

src/core/batch-reduce.rkt

@@ -220,18 +220,17 @@
            (cons exact-pow
                  (for/list ([term (cdr terms)])
                    (cons (* a (car term)) (cdr term))))
-           (cons 1
-                 (list* (cons a (batch-push! batch (car terms)))
-                        (for/list ([term (cdr terms)])
-                          (cons (* a (car term)) (cdr term))))))]
+           (list* 1
+                  (cons a (batch-push! batch (car terms)))
+                  (for/list ([term (cdr terms)])
+                    (cons (* a (car term)) (cdr term)))))]
       [_ `(1 . ((1 . ,brf)))]))
   (batch-recurse batch gather-multiplicative-terms))
 
 (define (combine-aterms terms)
   (define h (make-hash))
   (for ([term terms])
-    (define sum (hash-ref! h (cadr term) 0))
-    (hash-set! h (cadr term) (+ (car term) sum)))
+    (hash-update! h (cadr term) (λ (sum) (+ (car term) sum)) 0))
   (sort (reap [sow]
               (for ([(k v) (in-hash h)]
                     #:when (not (= v 0)))
@@ -243,8 +242,7 @@
   (cons (car terms)
         (let ([h (make-hash)])
           (for ([term (cdr terms)])
-            (define sum (hash-ref! h (cdr term) 0))
-            (hash-set! h (cdr term) (+ (car term) sum)))
+            (hash-update! h (cdr term) (λ (sum) (+ (car term) sum)) 0))
           (sort (reap [sow]
                       (for ([(k v) (in-hash h)]
                             #:unless (= v 0))