Process.st
changeset 15964 ee3faaeb7427
parent 15117 d7e7376ee1a4
child 16047 98326db8c188
--- a/Process.st	Wed Feb 05 18:19:09 2014 +0100
+++ b/Process.st	Wed Feb 05 18:19:20 2014 +0100
@@ -1353,6 +1353,17 @@
 
 !Process methodsFor:'special'!
 
+externalLookupPopIfEqual: lookupObject
+    "Called by method lookup MOP when an lookup context is to be unwound
+     to cleanup lookup stack"
+    lookupActivations first == lookupObject ifTrue:[
+        lookupActivations := lookupActivations second.
+    ].
+
+    "Created: / 04-10-2013 / 10:46:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 04-10-2013 / 12:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 millisecondDelay:millis
     "suspend the current process for some time.
      If the receiver is a system process (i.e. scheduler or event dispatcher)
@@ -2069,11 +2080,11 @@
 
 version_CVS
 
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.179 2013-04-19 09:35:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.180 2014-02-05 17:19:20 cg Exp $'
 !
 
 version_SVN
-    ^ '§ Id: Process.st 10643 2011-06-08 21:53:07Z vranyj1  §'
+    ^ '$ Id: Process.st 10643 2011-06-08 21:53:07Z vranyj1  $'
 ! !