added purpose statement for fn

2011-01-27 10:02:21 -08:00 · 2011-01-27 10:02:21 -08:00 · 4344fe004a
commit 4344fe004a
parent 83d2e5c151
1 changed files with 2 additions and 0 deletions
--- a/collects/drracket/private/debug.rkt
+++ b/collects/drracket/private/debug.rkt
@ -472,6 +472,8 @@ profile todo:
        [(pair? cms) (list (car cms))]
        [else '()])))
  
+  ;; show-syntax-error-context : 
+  ;; display the source information associated with a syntax error (if present)
  (define (show-syntax-error-context port exn)
    (let ([error-text-style-delta (make-object style-delta%)]
          [send-out