PR 9691 and a related bugfix

svn: r11383

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)

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