From 4344fe004ae70c41767d23f00d138eec7e0da0c5 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Thu, 27 Jan 2011 10:02:21 -0800
Subject: [PATCH] added purpose statement for fn

---
 collects/drracket/private/debug.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/drracket/private/debug.rkt b/collects/drracket/private/debug.rkt
index cbf6abd678..ac148ea612 100644
--- 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