Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#FEATURE
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 19:38:51 +0100
changeset 19426 20aa001ebd18
parent 19425 b0a76d09c72a
child 19427 cde32174b580
#FEATURE class: Smalltalk changed: #start
Smalltalk.st file | annotate | diff | comparison | revisions 
--- 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:[
hg/stx-libbasic