Smalltalk.st
changeset 19426 20aa001ebd18
parent 19385 0c655478e4bd
child 19427 cde32174b580
--- a/Smalltalk.st	Wed Mar 23 19:23:28 2016 +0100
+++ b/Smalltalk.st	Wed Mar 23 19:38:51 2016 +0100
@@ -4280,6 +4280,11 @@
                         ('Smalltalk [info]: reading script from: "', arg, '".') infoPrintCR.
                     ].
                     UserInterrupt handle:[:ex |
+                        DebuggingStandAlone ifTrue:[
+                            'Smalltalk [error]: user interrupt.' errorPrintCR.
+                            thisContext fullPrintAll.
+                            ex reject.
+                        ].    
                         self exit:128+(OperatingSystem sigINT).
                     ] do:[
                         arg = '-' ifTrue:[
@@ -4382,6 +4387,11 @@
                         ('Smalltalk [info]: executing expression: "', arg, '".') infoPrintCR.
                     ].
                     UserInterrupt handle:[:ex |
+                        DebuggingStandAlone ifTrue:[
+                            'Smalltalk [error]: user interrupt.' errorPrintCR.
+                            thisContext fullPrintAll.
+                            ex reject.
+                        ].    
                         self exit:128+(OperatingSystem sigINT).
                     ] do:[
                         isFilter ifTrue:[