From 979766bee540abd395d7ed5e7d3d50572e25909c Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 22 Aug 2008 13:08:19 +0000
Subject: [PATCH] PR 9691 and a related bugfix

svn: r11383
---
 collects/drscheme/private/rep.ss  | 12 ++++++++++--
 collects/drscheme/private/unit.ss | 10 +---------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index 20dce971b8..1b7dcf850e 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -1103,11 +1103,19 @@ TODO
               (default-continuation-prompt-tag)
               (λ args (void)))
              
+             (when complete-program?
+               (call-with-continuation-prompt
+                (λ ()
+                  (call-with-break-parameterization
+                   user-break-parameterization
+                   (λ ()
+                     (send lang front-end/finished-complete-program settings))))
+                (default-continuation-prompt-tag)
+                (λ args (void))))
+             
              (set! in-evaluation? #f)
              (update-running #f)
              (cleanup)
-             (when complete-program?
-               (send lang front-end/finished-complete-program settings))
              (flush-output (get-value-port))
              (queue-system-callback/sync
               (get-user-thread)
diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index 34d48d0645..dd4f466899 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -3063,15 +3063,7 @@ module browser threading seems wrong.
         (define scheme-menu 'scheme-menu-not-yet-init)
         (define insert-menu 'insert-menu-not-yet-init)
         (define/public (get-insert-menu) insert-menu)
-        (define/public (get-special-menu) 
-          (define context (continuation-mark-set->context (current-continuation-marks)))
-          (fprintf (current-error-port) 
-                   "called get-special-menu: ~a\n"
-                   (if (and (pair? context)
-                            (pair? (cdr context)))
-                       (format "~s ~s" (car (cadr context)) (cdr (cadr context)))
-                       "<<unknown caller>>"))
-          insert-menu)
+        (define/public (get-special-menu) insert-menu)
         
         (define/public (choose-language-callback)
           (let ([new-settings (drscheme:language-configuration:language-dialog