--- a/LazyMethod.st Thu Mar 28 16:29:59 2019 +0100
+++ b/LazyMethod.st Wed Apr 03 22:40:09 2019 +0200
@@ -118,14 +118,13 @@
|sender spec class selector|
+ sender := thisContext sender.
+ selector := sender selector.
+
"compile the method"
self makeRealMethod isNil ifTrue:[
- "
- compilation failed
- "
- selector := thisContext sender selector.
-
+ "/ compilation failed
class := self containingClass.
class notNil ifTrue:[
spec := class name , '>>' , selector
@@ -146,8 +145,9 @@
As a general rule: never edit autoloaded classes from anything
except the browser - to check that they work and are compilable.
"
- ^ CompilationFailedSignal raiseRequestWith:self
- errorString:('compilation of lazy method ' , spec , ' failed')
+ ^ CompilationFailedSignal
+ raiseRequestWith:self
+ errorString:('compilation of lazy method ' , spec , ' failed')
].
"
@@ -156,16 +156,17 @@
ThisContext sender is the context of the original send (the failed one)
"
- sender := thisContext sender.
ObjectMemory flushCaches.
- ^ self valueWithReceiver:(sender receiver)
- arguments:(sender args)
- selector:(sender selector)
- search:(sender searchClass)
- sender:nil
+ ^ self
+ valueWithReceiver:(sender receiver)
+ arguments:(sender args)
+ selector:selector
+ search:(sender searchClass)
+ sender:nil
"Modified (comment): / 21-11-2017 / 13:02:50 / cg"
+ "Modified (format): / 03-04-2019 / 22:39:44 / Claus Gittinger"
! !
!LazyMethod methodsFor:'queries'!