don't annotate expressions that have no source information

update docs, image for new buttons

svn: r8803
This commit is contained in:
Greg Cooper 2008-02-26 03:11:29 +00:00
parent 076c2757dc
commit 865b638d7c
3 changed files with 3 additions and 6 deletions

View File

@ -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

View File

@ -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.}