From 160d9d9ac4830f6d0093de0169c244552b7a07d8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 10 Jan 2011 12:40:25 -0600
Subject: [PATCH] removed unused bound id

---
 collects/drracket/private/eval.rkt | 64 +++++++++++++++---------------
 1 file changed, 31 insertions(+), 33 deletions(-)

diff --git a/collects/drracket/private/eval.rkt b/collects/drracket/private/eval.rkt
index 1c76774410..1f842fcda6 100644
--- a/collects/drracket/private/eval.rkt
+++ b/collects/drracket/private/eval.rkt
@@ -40,39 +40,37 @@
               [settings (drracket:language-configuration:language-settings-settings
                          language-settings)])
           (λ (input iter complete-program?)
-            (let-values ([(port src)
-                          (cond
-                            [(input-port? input) (values input #f)]
-                            [else (values
-                                   (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))
-                                   (drracket:language:text/pos-text input))])])
-              (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 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))]))
+            (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 (expand-program/multiple language-settings
                                      eval-compile-time-part?