Use newly-added debug register from os.rkt to dump entire stack state
This commit is contained in:
parent
e7ad27f1d3
commit
b22f7edbd0
|
@ -189,6 +189,14 @@
|
||||||
(newline))
|
(newline))
|
||||||
#:mode 'text
|
#:mode 'text
|
||||||
#:exists 'append)
|
#:exists 'append)
|
||||||
|
(with-output-to-file "zone-proxy.debug"
|
||||||
|
(lambda ()
|
||||||
|
(display "----------------------------------------------------------------------\n")
|
||||||
|
(display (seconds->date (current-seconds)))
|
||||||
|
(newline)
|
||||||
|
(pretty-write current-ground-transition))
|
||||||
|
#:mode 'text
|
||||||
|
#:exists 'append)
|
||||||
zone]
|
zone]
|
||||||
[(? question? q)
|
[(? question? q)
|
||||||
(transition zone
|
(transition zone
|
||||||
|
|
Loading…
Reference in New Issue