#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 08 May 2018 13:09:57 +0200
changeset 22798 fbfb1f60ce4b
parent 22797 094ff40472f3
child 22799 5cc8b7ebdd62
#FEATURE by cg class: GenericException added: #signal (ANSI)
GenericException.st
--- a/GenericException.st	Tue May 08 13:09:42 2018 +0200
+++ b/GenericException.st	Tue May 08 13:09:57 2018 +0200
@@ -1232,6 +1232,18 @@
     ^ self restartDo:alternativeBlock
 !
 
+signal
+    "raise a signal proceedable or nonproceedable (whichever is right).
+     ANSI compatibility."
+
+    ^ self raise
+
+    "
+     Error new signal
+     Error new raiseSignal
+    "
+!
+
 signalWith:messageTextArg
     "raise a signal proceedable or nonproceedable (whichever is right).
      The argument is used as messageText.
@@ -2378,7 +2390,6 @@
     <context: #return>
     <resource: #skipInDebuggersWalkBack>
 
-
     raiseContext := thisContext.
     (suspendedContext isNil or:[handlerContext notNil]) ifTrue:[
         suspendedContext := raiseContext sender