--- 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 $'
! !