equal
deleted
inserted
replaced
2148 |currentContext| |
2148 |currentContext| |
2149 |
2149 |
2150 "is nil a valid originator? If so, we need an extra |
2150 "is nil a valid originator? If so, we need an extra |
2151 instanceVariable to record the originator setting" |
2151 instanceVariable to record the originator setting" |
2152 originator isNil ifTrue:[ |
2152 originator isNil ifTrue:[ |
2153 originator := suspendedContext homeReceiver |
2153 suspendedContext notNil ifTrue:[ |
|
2154 originator := suspendedContext homeReceiver |
|
2155 ]. |
2154 ]. |
2156 ]. |
2155 |
2157 |
2156 signal isNil ifTrue:[ |
2158 signal isNil ifTrue:[ |
2157 signal := self class |
2159 signal := self class |
2158 ] ifFalse:[ |
2160 ] ifFalse:[ |
2492 proceedable := false. |
2494 proceedable := false. |
2493 |
2495 |
2494 ^ self doRaise |
2496 ^ self doRaise |
2495 |
2497 |
2496 "Created: / 10-08-2010 / 09:50:54 / cg" |
2498 "Created: / 10-08-2010 / 09:50:54 / cg" |
|
2499 ! |
|
2500 |
|
2501 reRaise |
|
2502 "reraise a previously caught exception (on the current context)" |
|
2503 |
|
2504 <context: #return> |
|
2505 |
|
2506 ^ self doRaise |
|
2507 |
|
2508 |
|
2509 |
2497 ! ! |
2510 ! ! |
2498 |
2511 |
2499 !GenericException methodsFor:'setup'! |
2512 !GenericException methodsFor:'setup'! |
2500 |
2513 |
2501 creator:aSignal |
2514 creator:aSignal |