Run Resyntax on drracket/private

Fixed 3 issues in 2 files.

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

Author: jackfirth

drracket/drracket/private/eval.rkt

@@ -56,14 +56,15 @@
                (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)]))
+             (define line (send text position-paragraph start))
+             (define column (- start (send text paragraph-start-position line)))
+             (define 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
            (λ ()
@@ -72,12 +73,12 @@
                    (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 in (read-thnk))
+               (cond
+                 [(eof-object? in)
+                  (iter in (λ () (void)))]
+                 [else
+                  (iter in (λ () (loop)))])))))))
 
     (define (expand-program/multiple language-settings
                                      eval-compile-time-part? 

drracket/drracket/private/stick-figures.rkt

@@ -245,9 +245,9 @@
                (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 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)