Run Resyntax on drracket/private

Fixed 5 issues in 3 files.

  * Fixed 4 occurences of cond-let-to-cond-define
  * Fixed 1 occurence of let-to-define

Author: jackfirth

drracket/drracket/private/eval.rkt

@@ -48,34 +48,36 @@
         (define port
           (cond
             [(input-port? input) input]
-            [else (let* ([text (drracket:language:text/pos-text input)]
-                         [start (drracket:language:text/pos-start input)]
-                         [end (drracket:language:text/pos-end input)]
-                         [text-port (open-input-text-editor text start end values
-                                                            (send text get-port-name))])
-                    (port-count-lines! text-port)
-                    (let* ([line (send text position-paragraph start)]
-                           [column (- start (send text paragraph-start-position line))]
-                           [relocated-port (relocate-input-port text-port 
-                                                                (+ line 1)
-                                                                column
-                                                                (+ start 1))])
-                      (port-count-lines! relocated-port)
-                      relocated-port))]))
+            [else
+             (define text (drracket:language:text/pos-text input))
+             (define start (drracket:language:text/pos-start input))
+             (define end (drracket:language:text/pos-end input))
+             (define text-port
+               (open-input-text-editor text start end values
+                                       (send text get-port-name)))
+             (port-count-lines! text-port)
+             (let* ([line (send text position-paragraph start)]
+                    [column (- start (send text paragraph-start-position line))]
+                    [relocated-port (relocate-input-port text-port 
+                                                         (+ line 1)
+                                                         column
+                                                         (+ start 1))])
+               (port-count-lines! relocated-port)
+               relocated-port)]))
         (parameterize ([current-eventspace eventspace])
           (queue-callback
            (λ ()
-             (let ([read-thnk 
-                    (if complete-program?
-                        (send language front-end/complete-program port settings)
-                        (send language front-end/interaction port settings))])
-               (let loop ()
-                 (let ([in (read-thnk)])
-                   (cond
-                     [(eof-object? in)
-                      (iter in (λ () (void)))]
-                     [else
-                      (iter in (λ () (loop)))])))))))))
+             (define read-thnk 
+               (if complete-program?
+                   (send language front-end/complete-program port settings)
+                   (send language front-end/interaction port settings)))
+             (let loop ()
+               (let ([in (read-thnk)])
+                 (cond
+                   [(eof-object? in)
+                    (iter in (λ () (void)))]
+                   [else
+                    (iter in (λ () (loop)))]))))))))
 
     (define (expand-program/multiple language-settings
                                      eval-compile-time-part? 
@@ -228,9 +230,9 @@
           [(equal? chars (string->list "WXME"))
            (define text (make-object text%))
            (send text load-file filename)
-           (let ([port (open-input-text-editor text)])
-             (port-count-lines! port)
-             (values port text))]
+           (define port (open-input-text-editor text))
+           (port-count-lines! port)
+           (values port text)]
           [else
            (define port (open-input-file filename))
            (port-count-lines! port)

drracket/drracket/private/module-browser.rkt

@@ -123,9 +123,9 @@
             (define t (new text%))
             (close-input-port p)
             (send t load-file filename)
-            (let ([prt (open-input-text-editor t)])
-              (port-count-lines! prt)
-              prt)]
+            (define prt (open-input-text-editor t))
+            (port-count-lines! prt)
+            prt]
            [else p])))
       (current-output-port (swallow-specials original-output-port))
       (current-error-port (swallow-specials original-error-port))

drracket/drracket/private/stick-figures.rkt

@@ -240,14 +240,14 @@
              (define-values (w h) (get-client-size))
              (define x (send evt get-x))
              (define y (send evt get-y))
-             (let ([point (find-point this x y)])
-               (when point
-                 (set! clicked-x x)
-                 (set! clicked-y y)
-                 (set! clicked-point point)
-                 (let ([orig-point (assoc point points)])
-                   (set! orig-x (list-ref orig-point 1))
-                   (set! orig-y (list-ref orig-point 2)))))]
+             (define point (find-point this x y))
+             (when point
+               (set! clicked-x x)
+               (set! clicked-y y)
+               (set! clicked-point point)
+               (let ([orig-point (assoc point points)])
+                 (set! orig-x (list-ref orig-point 1))
+                 (set! orig-y (list-ref orig-point 2))))]
             [(and clicked-point (send evt moving?))
              (set! points 
                    (map (λ (x)