don't annotate expressions that have no source information
update docs, image for new buttons svn: r8803
This commit is contained in:
parent
076c2757dc
commit
865b638d7c
|
@ -209,10 +209,7 @@
|
|||
(define annotate-break?
|
||||
(let ([pos (syntax-position expr)]
|
||||
[src (syntax-source expr)])
|
||||
(and (or (not source)
|
||||
(eq? src #;source (syntax-source stx)))
|
||||
; (is-a? src object%) ; FIX THIS
|
||||
pos
|
||||
(and src pos
|
||||
(hash-table-get breakpoints pos (lambda () #t))
|
||||
(kernel:kernel-syntax-case
|
||||
expr #f
|
||||
|
@ -363,7 +360,7 @@
|
|||
(let ([subexprs (map (lambda (expr)
|
||||
(annotate expr bound-vars #f module-name ))
|
||||
(syntax->list #'exprs))])
|
||||
(if is-tail?
|
||||
(if (or is-tail? (not (syntax-source expr)))
|
||||
(quasisyntax/loc expr #,subexprs)
|
||||
(wcm-wrap (make-debug-info module-name expr bound-vars bound-vars 'normal #f (previous-bindings bound-vars))
|
||||
(quasisyntax/loc expr #,subexprs))))]
|
||||
|
|
Binary file not shown.
Before Width: | Height: | Size: 42 KiB After Width: | Height: | Size: 39 KiB |
|
@ -538,7 +538,7 @@ While execution is paused, several buttons are available:
|
|||
|
||||
@itemize{
|
||||
|
||||
@item{The @as-index{@onscreen{Continue} button} is enabled
|
||||
@item{The @as-index{@onscreen{Go} button} is enabled
|
||||
whenever the program is paused. It causes the program to resume
|
||||
until it either completes, reaches a breakpoint, or raises an
|
||||
unhandled exception.}
|
||||
|
|
Loading…
Reference in New Issue
Block a user