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

removed debugging output

Browse Source 
svn: r2096
This commit is contained in:
John Clements 2006-02-03 01:06:33 +00:00
parent 5c77673da3
commit 367c792141
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/stepper/private/reconstruct.ss
View File

@ -914,8 +914,8 @@
;; there's a terrible tangle of invariants here. Among them: ;; there's a terrible tangle of invariants here. Among them:
;; num-defns-done = (length binding-sets) IFF the so-far has a 'user-stepper-offset' index ;; num-defns-done = (length binding-sets) IFF the so-far has a 'user-stepper-offset' index
;; that is not #f (that is, we're evaluating the body...) ;; that is not #f (that is, we're evaluating the body...)
[so-far-offset-index (>>> (and (not (eq? so-far nothing-so-far)) [so-far-offset-index (and (not (eq? so-far nothing-so-far))
(syntax-property so-far 'user-stepper-offset-index)))] (syntax-property so-far 'user-stepper-offset-index))]
[bodies (syntax->list (syntax bodies))] [bodies (syntax->list (syntax bodies))]
[rectified-bodies [rectified-bodies
(map (lambda (body offset-index) (map (lambda (body offset-index)
@ -1106,7 +1106,7 @@
#f))])])) #f))])]))
; uncomment to see all breaks coming in: ; uncomment to see all breaks coming in:
(define _ (printf "break-kind: ~a\ninnermost source: ~a\nreturned-value-list: ~a\n" #;(define _ (printf "break-kind: ~a\ninnermost source: ~a\nreturned-value-list: ~a\n"
break-kind break-kind
(and (pair? mark-list) (and (pair? mark-list)
(syntax-object->datum (mark-source (car mark-list)))) (syntax-object->datum (mark-source (car mark-list))))
@ -1127,8 +1127,6 @@
(error 'reconstruct "context expected one value, given ~v" returned-value-list)) (error 'reconstruct "context expected one value, given ~v" returned-value-list))
(recon-value (car returned-value-list) render-settings)) (recon-value (car returned-value-list) render-settings))
(recon-source-expr (mark-source (car mark-list)) mark-list null null render-settings))]) (recon-source-expr (mark-source (car mark-list)) mark-list null null render-settings))])
(>>> innermost)
(>>> (syntax-property innermost 'user-stepper-offset-index))
(unwind (recon (mark-as-highlight innermost) (cdr mark-list) #f) #f))) (unwind (recon (mark-as-highlight innermost) (cdr mark-list) #f) #f)))
((double-break) ((double-break)
(let* ([source-expr (mark-source (car mark-list))] (let* ([source-expr (mark-source (car mark-list))]