Automated Resyntax fixes (#125)

This is an automated change generated by Resyntax.

#### Pass 1

Applied 2 fixes to [`disposable/private/pool.rkt`](../blob/HEAD/disposable/private/pool.rkt)

  * Line 12, `predicate/c-migration`: The `predicate/c` contract is less clear than a `->` contract and no longer improves performance.
  * Line 16, `predicate/c-migration`: The `predicate/c` contract is less clear than a `->` contract and no longer improves performance.

Applied 1 fix to [`disposable/private/atomic-box.rkt`](../blob/HEAD/disposable/private/atomic-box.rkt)

  * Line 8, `predicate/c-migration`: The `predicate/c` contract is less clear than a `->` contract and no longer improves performance.

Applied 2 fixes to [`disposable/main.rkt`](../blob/HEAD/disposable/main.rkt)

  * Line 13, `predicate/c-migration`: The `predicate/c` contract is less clear than a `->` contract and no longer improves performance.
  * Line 29, `predicate/c-migration`: The `predicate/c` contract is less clear than a `->` contract and no longer improves performance.

Applied 1 fix to [`disposable-test/tests/main.rkt`](../blob/HEAD/disposable-test/tests/main.rkt)

  * Line 3, `tidy-require`: Keep imports in `require` sorted and grouped by phase, with collections before files.

Applied 1 fix to [`disposable/testing.rkt`](../blob/HEAD/disposable/testing.rkt)

  * Line 10, `predicate/c-migration`: The `predicate/c` contract is less clear than a `->` contract and no longer improves performance.

Applied 1 fix to [`disposable/file.rkt`](../blob/HEAD/disposable/file.rkt)

  * Line 45, `make-temporary-directory-migration`: Use `make-temporary-directory` to make directories instead of `make-temporary-file`.

## Summary

Fixed 8 issues in 6 files.

  * Fixed 6 occurrences of `predicate/c-migration`
  * Fixed 1 occurrence of `tidy-require`
  * Fixed 1 occurrence of `make-temporary-directory-migration`

Co-authored-by: GitHub Actions <actions@github.com>

disposable-test/tests/main.rkt

@@ -1,14 +1,14 @@
 #lang racket/base
 
 (require (for-syntax racket/base)
-         doc-coverage
          disposable
          disposable/testing
          disposable/unsafe
+         doc-coverage
          fixture
          racket/control
-         racket/list
          racket/function
+         racket/list
          rackunit
          syntax/macro-testing
          "util.rkt")

disposable/file.rkt

@@ -42,7 +42,7 @@
   (disposable create delete))
 
 (define (disposable-directory #:parent-dir [parent-dir #f])
-  (define (create-dir) (make-temporary-file "rkttmp~a" 'directory parent-dir))
+  (define (create-dir) (make-temporary-directory "rkttmp~a" #:base-dir parent-dir))
   (define (delete dir)
     (define (exn:no-such-dir? exn)
       (and (exn:fail:filesystem:errno? exn)

disposable/main.rkt

@@ -10,7 +10,7 @@
  (contract-out
   [disposable (-> (-> any/c) (-> any/c void?) disposable?)]
   [make-disposable (-> (-> (values any/c (-> void?))) disposable?)]
-  [disposable? predicate/c]
+  [disposable? (-> any/c boolean?)]
   [disposable/c (-> (or/c chaperone-contract? flat-contract?) contract?)]
   [call/disposable (-> disposable? (-> any/c any) any)]
   [disposable-apply (-> procedure? disposable? ... disposable?)]
@@ -26,7 +26,7 @@
   [acquire (->* (disposable?) (#:dispose-evt evt?) any/c)]
   [acquire-global (->* (disposable?) (#:plumber plumber?) any/c)]
   [acquire-virtual (-> disposable? (-> any/c))]
-  [transient? predicate/c]
+  [transient? (-> any/c boolean?)]
   [transient/c (-> contract? contract?)]
   [disposable-transient (-> disposable? (disposable/c transient?))]
   [transient-dispose (-> transient? void?)]

disposable/private/atomic-box.rkt

@@ -5,7 +5,7 @@
 (provide
  (contract-out
   [atomic-box (-> any/c atomic-box?)]
-  [atomic-box? predicate/c]
+  [atomic-box? (-> any/c boolean?)]
   [atomic-box-close! (->* (atomic-box?) (#:on-close (-> any/c void?)) void?)]
   [atomic-box-closed? (-> atomic-box? boolean?)]
   [atomic-box-ref (->* (atomic-box?)

disposable/private/pool.rkt

@@ -9,11 +9,11 @@
                  (or/c exact-nonnegative-integer? +inf.0)
                  (or/c exact-nonnegative-integer? +inf.0)
                  pool?)]
-  [pool? predicate/c]
+  [pool? (-> any/c boolean?)]
   [pool-lease (-> pool? lease?)]
   [pool-return (-> pool? lease? void?)]
   [pool-clear (-> pool? void?)]
-  [lease? predicate/c]
+  [lease? (-> any/c boolean?)]
   [lease-value (-> lease? any/c)]))
 
 (require disposable/private/atomic-box

disposable/testing.rkt

@@ -7,7 +7,7 @@
   [sequence->disposable (-> sequence? disposable?)]
   [disposable/event-log
    (-> disposable? (disposable/c (list/c disposable? event-log?)))]
-  [event-log? predicate/c]
+  [event-log? (-> any/c boolean?)]
   [event-log-events (-> event-log? (listof disp-event?))]))
 
 (define disp-event? (list/c (or/c 'alloc 'dealloc) any/c))