From ca73b0569d039c0f1aef919d9309e1cc67e2ca85 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 11 Jan 2012 12:31:41 -0600
Subject: [PATCH] tweak the printing of syntax errors again so the "in:" part
 is in tt font

merge to the release branch, please
(cherry picked from commit 9aecc085795bd50ea3ff72da84980bb1f1329cf6)
---
 collects/drracket/private/debug.rkt | 46 ++++++++++++++++-------------
 1 file changed, 25 insertions(+), 21 deletions(-)

diff --git a/collects/drracket/private/debug.rkt b/collects/drracket/private/debug.rkt
index 4df3981356..b81bfd88e6 100644
--- a/collects/drracket/private/debug.rkt
+++ b/collects/drracket/private/debug.rkt
@@ -515,27 +515,31 @@ profile todo:
                    (write-special snp (current-error-port)))
                  (display msg (current-error-port))))])
       (send error-text-style-delta set-delta-foreground (make-object color% 200 0 0))
-      (let ([show-one
-             (λ (expr)
-               (display " " (current-error-port))
-               (send-out (format "~s" (syntax->datum expr))
-                         (λ (snp)
-                           (send snp set-style
-                                 (send (editor:get-standard-style-list) find-or-create-style
-                                       (send (editor:get-standard-style-list) find-named-style "Standard")
-                                       error-text-style-delta)))))]
-            [exprs (exn:fail:syntax-exprs exn)])
-        (cond
-          [(null? exprs) (void)]
-          [(null? (cdr exprs))
-           (send-out " in:" void)
-           (show-one (car exprs))]
-          [else
-           (send-out " in:" void)
-           (for-each (λ (expr)
-                       (display "\n " (current-error-port))
-                       (show-one expr))
-                     exprs)]))))
+      (define (show-one expr)
+        (display " " (current-error-port))
+        (send-out (format "~s" (syntax->datum expr))
+                  (λ (snp)
+                    (send snp set-style
+                          (send (editor:get-standard-style-list) find-or-create-style
+                                (send (editor:get-standard-style-list) find-named-style "Standard")
+                                error-text-style-delta)))))
+      (define exprs (exn:fail:syntax-exprs exn))
+      (define (show-in)
+        (send-out " in:"
+                  (λ (snp)
+                    (send snp set-style
+                          (send (editor:get-standard-style-list) find-named-style "Standard")))))
+      (cond
+        [(null? exprs) (void)]
+        [(null? (cdr exprs))
+         (show-in)
+         (show-one (car exprs))]
+        [else
+         (show-in)
+         (for-each (λ (expr)
+                     (display "\n " (current-error-port))
+                     (show-one expr))
+                   exprs)])))
   
   
   ;; insert/clickback : (instanceof text%) (union string (instanceof snip%)) (-> void)