Merge pull request #1303 from herbie-fp/autofix-34-1

Automated Resyntax fixes

Author: pavpanchekha

infra/convert-demo.rkt

@@ -15,10 +15,7 @@
 (define (format-expr is-version-10 expr)
   (match expr
     [(? string?)
-     (define parsed (string->number expr))
-     (unless parsed
-       (raise (error "string that is not a num")))
-     parsed]
+     (or (string->number expr) (raise (error "string that is not a num")))]
     [(list op args ...) (format-op (cons op (map (curry format-expr is-version-10) args)))]
     [(? symbol?)
      (if is-version-10

src/utils/errors.rkt

@@ -63,7 +63,7 @@
   (for/list ([(name loc) (in-dict ctx)])
     (define name* (or name "(unnamed)"))
     (match loc
-      [(srcloc file line col _ _) (cons name* (list file line col))]
+      [(srcloc file line col _ _) (list name* file line col)]
       [#f (cons name* #f)])))
 
 (define (syntax-locations->datum exn)

src/utils/timeline.rkt

@@ -46,7 +46,7 @@
       (make-hasheq (list (cons 'type (~a type))
                          (cons 'time (current-inexact-milliseconds))
                          (cons 'gc-time (current-gc-milliseconds))
-                         (cons 'memory (list (list live-memory alloc-memory))))))
+                         (list 'memory (list live-memory alloc-memory)))))
     (set-box! (*timeline*) (cons b (unbox (*timeline*))))))
 
 (define (timeline-push! key . values)