class: Context
authorStefan Vogel <sv@exept.de>
Tue, 20 Aug 2013 12:19:12 +0200
changeset 15651 532c5eae2d20
parent 15650 6fb6c451391f
child 15652 22283f3d2b89
class: Context changed: #return: #returnDoing: sender nil-check is now in primitive code
Context.st
--- a/Context.st	Tue Aug 20 11:51:38 2013 +0200
+++ b/Context.st	Tue Aug 20 12:19:12 2013 +0200
@@ -1256,11 +1256,12 @@
          If such a context is restarted, a runtime error is raised."
 
 %{  /* NOCONTEXT */
-    if (__INST(sender_) != nil) {
+    if (__INST(sender_) == nil) {
+        RETURN(nil);
+    } else {
         __RESUMECONTEXT__(self, value, 0);
     }
 %}.
-    self sender isNil ifTrue:[^ nil].
 
     "
      when we arrive here, something went wrong.
@@ -1286,11 +1287,12 @@
          If such a context is restarted, a runtime error is raised."
 
 %{
-    if (__INST(sender_) != nil) {
+    if (__INST(sender_) == nil) {
+        RETURN(nil);
+    } else {
         __RESUMECONTEXT__(self, aBlock, 2);
     }
 %}.
-    self sender isNil ifTrue:[^ nil].
 
     "
      when we arrive here, something went wrong.
@@ -2496,11 +2498,11 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.188 2013-08-20 09:51:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.189 2013-08-20 10:19:12 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.188 2013-08-20 09:51:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.189 2013-08-20 10:19:12 stefan Exp $'
 !
 
 version_HG