You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
901 B
Scheme
38 lines
901 B
Scheme
27 years ago
|
;; debugging.ss
|
||
|
|
|
||
|
|
(define debugging #f)
|
||
|
|
(define debugging-front #f)
|
||
|
|
(define debugging-traverse #f)
|
||
|
|
(define debugging-object #f)
|
||
|
|
(define debugging-unit #f)
|
||
|
|
(define debugging-check #f)
|
||
|
|
(define debugging-atenv #f)
|
||
|
|
(define debugging-atype #f)
|
||
|
|
(define debugging-sdl #f)
|
||
|
|
(define debugging-sdl2 #f)
|
||
|
|
(define debugging-gui #t)
|
||
|
|
|
||
|
|
(define debugging-min #f)
|
||
|
|
(define debugging-min2 #f)
|
||
|
|
(define debugging-few #f)
|
||
|
|
(define debugging-gram #f)
|
||
|
|
(define debugging-dfa-min #f)
|
||
|
|
(define debugging-min-table #f)
|
||
|
|
|
||
|
|
(define timing-min #f)
|
||
|
|
|
||
|
|
(define pretty-print-debug pretty-print)
|
||
|
|
|
||
|
|
(define (set-debug-flag which val)
|
||
|
|
(case which
|
||
|
|
[(general) (set! debugging val)]
|
||
|
|
[(min) (set! debugging-min val)]
|
||
|
|
[(front) (set! debugging-front val)]
|
||
|
|
[(traverse) (set! debugging-traverse val)]))
|
||
|
|
|
||
|
|
;(set! debugging #t)
|
||
|
|
;(set! debugging-min #t)
|
||
|
|
;(set! debugging-gram #t)
|
||
|
|
;(set! debugging-min-table #t)
|
||
|
|
;(set! timing-min #t)
|