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

PR 9762

Browse Source 
svn: r11776
This commit is contained in:
Robby Findler 2008-09-16 11:34:17 +00:00
parent 081611f574
commit 1fa518f9d8
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/debug.ss
View File

@ -816,9 +816,10 @@ profile todo:
(or (send editor get-filename) (or (send editor get-filename)
untitled)))) untitled))))
;; open-and-highlight-in-file : srcloc -> void ;; open-and-highlight-in-file : (or/c srcloc (listof srcloc)) -> void
(define (open-and-highlight-in-file srclocs) (define (open-and-highlight-in-file raw-srcloc)
(let ([sources (filter values (map srcloc-source srclocs))]) (let* ([srclocs (if (srcloc? raw-srcloc) (list raw-srcloc) raw-srcloc)]
[sources (filter values (map srcloc-source srclocs))])
(unless (null? sources) (unless (null? sources)
(let* ([debug-source (car sources)] (let* ([debug-source (car sources)]
[same-src-srclocs [same-src-srclocs

2
collects/drscheme/tool-lib.ss
View File

@ -382,7 +382,7 @@ all of the names in the tools library, for use defining keybindings
(proc-doc/names (proc-doc/names
drscheme:debug:open-and-highlight-in-file drscheme:debug:open-and-highlight-in-file
(srcloc? . -> . void?) ((or/c srcloc? (listof srcloc?)) . -> . void?)
(debug-info) (debug-info)
@{This function opens a DrScheme to display @{This function opens a DrScheme to display
@scheme[debug-info]. Only the src the position @scheme[debug-info]. Only the src the position