From b22f7edbd02dcd21e138b56f9e3124cc4b16c2fb Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 5 Mar 2012 18:30:17 -0500 Subject: [PATCH] Use newly-added debug register from os.rkt to dump entire stack state --- proxy.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/proxy.rkt b/proxy.rkt index fcccc62..790e1d2 100644 --- a/proxy.rkt +++ b/proxy.rkt @@ -189,6 +189,14 @@ (newline)) #:mode 'text #: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] [(? question? q) (transition zone