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

added parameter to control STC's debug printout

Browse Source
This commit is contained in:
John Clements 2011-06-29 12:44:09 -07:00
parent 3f50dc7f2c
commit e88ec555bb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/stepper/private/model.rkt
View File

@ -56,6 +56,9 @@
#;"display-break-stuff.ss" #;"display-break-stuff.ss"
(for-syntax scheme/base)) (for-syntax scheme/base))
(define stepper-model-debug? (make-parameter #f))
(provide stepper-model-debug?)
(define program-expander-contract (define program-expander-contract
((-> void?) ; init ((-> void?) ; init
@ -86,7 +89,7 @@
#:disable-error-handling? [disable-error-handling? #f] #:disable-error-handling? [disable-error-handling? #f]
#:raw-step-receiver [raw-step-receiver #f]) #:raw-step-receiver [raw-step-receiver #f])
(define DEBUG #f) (define DEBUG (stepper-model-debug?))
;; finished-exps: ;; finished-exps:
;; (listof (list/c syntax-object? (or/c number? false?)( -> any))) ;; (listof (list/c syntax-object? (or/c number? false?)( -> any)))
@ -222,7 +225,7 @@
(let* ([mark-list (and mark-set (extract-mark-list mark-set))] (let* ([mark-list (and mark-set (extract-mark-list mark-set))]
[dump-marks [dump-marks
(when DEBUG (when DEBUG
(printf "MARKLIST:\n") (printf "MARKLIST:\n\n")
(and mark-set (and mark-set
(map (λ (x) (printf "~a\n" (display-mark x))) mark-list)) (map (λ (x) (printf "~a\n" (display-mark x))) mark-list))
(printf "RETURNED VALUE LIST: ~a\n" returned-value-list))]) (printf "RETURNED VALUE LIST: ~a\n" returned-value-list))])
@ -340,8 +343,6 @@
(equal? (map syntax->hilite-datum lhs) (equal? (map syntax->hilite-datum lhs)
(map syntax->hilite-datum rhs))) (map syntax->hilite-datum rhs)))
#;(>>> break-kind)
#;(fprintf (current-error-port) "break called with break-kind: ~a ..." break-kind)
(if (r:skip-step? break-kind mark-list render-settings) (if (r:skip-step? break-kind mark-list render-settings)
(begin (begin
(when DEBUG (printf "skipped step\n")) (when DEBUG (printf "skipped step\n"))