Use newly-added debug register from os.rkt to dump entire stack state

2012-03-05 18:30:17 -05:00 · 2012-03-05 18:30:17 -05:00 · b22f7edbd0
parent e7ad27f1d3
commit b22f7edbd0
1 changed files with 8 additions and 0 deletions
--- 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