Fix 5 occurrences of unless-expression-in-for-loop-to-unless-keyword

Use the `#:unless` keyword instead of `unless` to reduce loop body indentation.

Author: resyntax-ci[bot]

drracket-core-lib/drracket/private/insulated-read-language.rkt

@@ -478,9 +478,9 @@ Will not work with the definitions text surrogate interposition that
          (for ([chars (in-list (syntax->list #'(chars ...)))])
            (unless (string? (syntax-e chars))
              (raise-syntax-error 'chars "expected a string" stx chars))
-           (for ([char (in-string (syntax-e chars))])
-             (unless (< (char->integer char) 128)
-               (raise-syntax-error 'chars "expected only one-byte chars" stx chars))))
+           (for ([char (in-string (syntax-e chars))]
+                 #:unless (< (char->integer char) 128))
+             (raise-syntax-error 'chars "expected only one-byte chars" stx chars)))
          #'(cond
              [(check-chars port chars)
               rhs ...]

drracket-core-lib/drracket/private/tool-contract-language.rkt

@@ -65,13 +65,13 @@
                                "expected type name specification"
                                stx
                                str-stx))
-         (for ([name (in-list (syntax->list (syntax (name ...))))])
-           (unless (identifier? name)
-             (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name)))
+         (for ([name (in-list (syntax->list (syntax (name ...))))]
+               #:unless (identifier? name))
+           (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name))
          (for ([str (in-list (apply append
-                                    (map syntax->list (syntax->list (syntax ((strs ...) ...))))))])
-           (unless (string? (syntax->datum str))
-             (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str))))]))
+                                    (map syntax->list (syntax->list (syntax ((strs ...) ...))))))]
+               #:unless (string? (syntax->datum str)))
+           (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str)))]))
 
   (define-syntax (-#%module-begin2 stx)
     (syntax-case stx ()
@@ -118,10 +118,10 @@
                                "expected type name specification"
                                stx
                                str-stx))
-         (for ([name (in-list (syntax->list (syntax (name ...))))])
-           (unless (identifier? name)
-             (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name)))
+         (for ([name (in-list (syntax->list (syntax (name ...))))]
+               #:unless (identifier? name))
+           (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name))
          (for ([str (in-list (apply append
-                                    (map syntax->list (syntax->list (syntax ((strs ...) ...))))))])
-           (unless (string? (syntax->datum str))
-             (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str))))]))
+                                    (map syntax->list (syntax->list (syntax ((strs ...) ...))))))]
+               #:unless (string? (syntax->datum str)))
+           (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str)))]))