Automated Resyntax fixes

drracket-core-lib/drracket/private/debug.rkt

@@ -483,7 +483,7 @@
                      [(null? (cdr planet-version))
                       (format "~s" `(,(car planet-version) ?))]
                      [else
-                      (format "~s" `(,(car planet-version) ,(cadr planet-version)))]))
+                      (format "~s" (list (car planet-version) (cadr planet-version)))]))
              (cons 'description (exn->trace exn)))]
       [else #f]))
 

drracket-test/tests/drracket/example-tool.rkt

@@ -8,8 +8,7 @@
 (define new-collection-root 
   #;
   (string->path "C:\\tmp")
-  (make-temporary-file "drracket-test-example-tool~a"
-                       'directory))
+  (make-temporary-directory "drracket-test-example-tool~a"))
 (define coll (build-path new-collection-root "coll"))
 (unless (directory-exists? coll) (make-directory coll))
 

drracket-test/tests/drracket/language-test.rkt

@@ -1812,8 +1812,7 @@ the settings above should match r5rs
                   (loop child))]
                [(is-a? gui-thing radio-box%)
                 (k gui-thing)])))]))
-    (error 'find-output-radio-box "could not find `~a' radio box"
-           label)))
+    (raise-arguments-error 'find-output-radio-box "could not find `' radio box" "label" label)))
 
 (define re:out-of-sync
   (regexp
@@ -1933,16 +1932,22 @@ the settings above should match r5rs
 (define (test-undefined-var id #:icon+in? [icon+in? #f])
   (test-expression
    id
-   (string-append (if icon+in? "{stop-22x22.png} " "")
-                  (format "~a: this variable is not defined" id)
-                  (if icon+in? (format " in: ~a " id) ""))))
+   (format "~a~a: this variable is not defined~a"
+           (if icon+in? "{stop-22x22.png} " "")
+           id
+           (if icon+in?
+               (format " in: ~a " id)
+               ""))))
 
 (define (test-undefined-fn exp id #:icon+in? [icon+in? #f])
   (test-expression
    exp
-   (string-append (if icon+in? "{stop-22x22.png} " "")
-                  (format "~a: this function is not defined" id)
-                  (if icon+in? (format " in: ~a " id) ""))))
+   (format "~a~a: this function is not defined~a"
+           (if icon+in? "{stop-22x22.png} " "")
+           id
+           (if icon+in?
+               (format " in: ~a " id)
+               ""))))
 
 (define-syntax (go stx)
   (syntax-case stx ()

drracket-test/tests/drracket/no-write-and-frame-leak.rkt

@@ -139,13 +139,11 @@ This test checks:
           (process-container item)))))
 
   (define (record-shortcut item)
-    (when (is-a? item selectable-menu-item<%>)
-      (when (send item get-shortcut)
-        (define k (append (sort (send item get-shortcut-prefix)
-                                string<=?
-                                #:key symbol->string)
-                          (list (send item get-shortcut))))
-        (hash-update! shortcuts k (λ (v) (cons (send item get-label) v)) '()))))
+    (when (and (is-a? item selectable-menu-item<%>) (send item get-shortcut))
+      (define k
+        (append (sort (send item get-shortcut-prefix) string<=? #:key symbol->string)
+                (list (send item get-shortcut))))
+      (hash-update! shortcuts k (λ (v) (cons (send item get-label) v)) '())))
 
   (define (get-lab item)
     (cond