#FEATURE
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 20:19:56 +0100
changeset 19429 17aac79214ad
parent 19428 117f7e571ea0
child 19430 2e309bb80f95
#FEATURE class: Smalltalk changed: #start
Smalltalk.st
--- a/Smalltalk.st	Wed Mar 23 20:13:47 2016 +0100
+++ b/Smalltalk.st	Wed Mar 23 20:19:56 2016 +0100
@@ -4280,9 +4280,10 @@
                     ].
                     UserInterrupt handle:[:ex |
                         Debugging == true ifTrue:[
-                            'Smalltalk [error]: user interrupt.' errorPrintCR.
-                            thisContext fullPrintAll.
-                            ex reject.
+                            'user interrupt (type "c" to continue; "x" to exit; "?" for help).' errorPrintCR.
+                            "/ thisContext fullPrintAll.
+                            MiniDebugger enter.
+                            ex proceed.
                         ].    
                         self exit:128+(OperatingSystem sigINT).
                     ] do:[
@@ -4387,9 +4388,10 @@
                     ].
                     UserInterrupt handle:[:ex |
                         Debugging == true ifTrue:[
-                            'Smalltalk [error]: user interrupt.' errorPrintCR.
-                            thisContext fullPrintAll.
-                            ex reject.
+                            'user interrupt (type "c" to continue; "x" to exit; "?" for help).' errorPrintCR.
+                            "/ thisContext fullPrintAll.
+                            MiniDebugger enter.
+                            ex proceed.
                         ].    
                         self exit:128+(OperatingSystem sigINT).
                     ] do:[