suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added purpose statement for fn

Browse Source
This commit is contained in:
John Clements 2011-01-27 10:02:21 -08:00
parent 83d2e5c151
commit 4344fe004a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/debug.rkt
View File

@ -472,6 +472,8 @@ profile todo:
[(pair? cms) (list (car cms))] [(pair? cms) (list (car cms))]
[else '()]))) [else '()])))
;; show-syntax-error-context :
;; display the source information associated with a syntax error (if present)
(define (show-syntax-error-context port exn) (define (show-syntax-error-context port exn)
(let ([error-text-style-delta (make-object style-delta%)] (let ([error-text-style-delta (make-object style-delta%)]
[send-out [send-out