From d580518e66573692e6258c04d94b25e23f3bbf93 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 28 Nov 2011 15:34:30 -0600
Subject: [PATCH] adjust the autosave error code to print the stacktrace
 related to PR 12400

---
 collects/framework/private/editor.rkt | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/editor.rkt b/collects/framework/private/editor.rkt
index d7b68dc457..2e800662de 100644
--- a/collects/framework/private/editor.rkt
+++ b/collects/framework/private/editor.rkt
@@ -610,7 +610,8 @@
       (define/private (show-autosave-error exn orig-name)
         (message-box 
          (string-constant warning)
-         (string-append
+         (apply
+          string-append
           (format (string-constant error-autosaving)
                   (or orig-name (string-constant untitled)))
           "\n"
@@ -618,7 +619,14 @@
           "\n\n"
           (if (exn? exn)
               (format "~a" (exn-message exn))
-              (format "~s" exn)))
+              (format "~s" exn))
+          "\n\n"
+          (if (and (exn? exn)
+                   (continuation-mark-set? (exn-continuation-marks exn)))
+              (for/list ([fr (in-list (continuation-mark-set->context 
+                                       (exn-continuation-marks exn)))])
+                (format "   ~s\n" fr))
+              '()))
          #f
          '(caution ok)))