Add warning text if the repl dies

svn: r10511
2008-06-29 23:42:09 +00:00 · 2008-06-29 23:42:09 +00:00 · be1097cb20
commit be1097cb20
parent 9a900b37aa
1 changed files with 2 additions and 1 deletions
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@ -958,7 +958,8 @@ TODO
          (when (equal? ans 3)
            (set-custodian-limit new-limit)
            (preferences:set 'drscheme:limit-memory new-limit))
-          (void)))
+          (set-insertion-point (last-position))
+          (insert-warning "\n[Interactions disabled]")))
      
      (define/private (cleanup-interaction) ; =Kernel=, =Handler=
        (set! need-interaction-cleanup? #f)