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

Revert "Fixed error highlighting in embedded snips."; lingering bugs

Browse Source 
on get-canvas.

This reverts commit a12d0704e7a10e73988db57ad0e8a3d39998663e.

svn: r10462
This commit is contained in:
Danny Yoo 2008-06-26 20:17:12 +00:00
parent 448495aa0e
commit 4f56c1169b
2 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -764,7 +764,9 @@ profile todo:
[frame (cond [frame (cond
[(path? debug-source) (handler:edit-file debug-source)] [(path? debug-source) (handler:edit-file debug-source)]
[(is-a? debug-source editor<%>) [(is-a? debug-source editor<%>)
(get-enclosing-editor-frame debug-source)] (let ([canvas (send debug-source get-canvas)])
(and canvas
(send canvas get-top-level-window)))]
[else #f])] [else #f])]
[editor (cond [editor (cond
[(path? debug-source) [(path? debug-source)
@ -787,23 +789,6 @@ profile todo:
;; get-enclosing-editor-frame: editor<%> -> (or/c frame% #f)
;; Returns the enclosing frame of an-editor, or #f if we can't find it.
(define (get-enclosing-editor-frame an-editor)
(let ([admin (send an-editor get-admin)])
(cond
[(is-a? admin editor-snip-editor-admin<%>)
(let* ([enclosing-editor-snip (send admin get-snip)]
[editor-snip-admin (send enclosing-editor-snip get-admin)]
[enclosing-editor (send editor-snip-admin get-editor)])
(get-enclosing-editor-frame enclosing-editor))]
[else
(let ([canvas (send an-editor get-canvas)])
(and canvas
(send canvas get-top-level-window)))])))
; ;
; ;
; ;

4
collects/drscheme/private/language.ss
View File

@ -115,8 +115,8 @@
(documentation-reference #f) (documentation-reference #f)
(reader (λ (src port) (reader (λ (src port)
(let ([v (parameterize ([read-accept-reader #t]) (let ([v (parameterize ([read-accept-reader #t])
(with-stacktrace-name (with-stacktrace-name
(read-syntax src port)))]) (read-syntax src port)))])
(if (eof-object? v) (if (eof-object? v)
v v
(namespace-syntax-introduce v))))) (namespace-syntax-introduce v)))))