# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1554324009 -7200
# Node ID 4649f9dd9614b944f0a2669d577e1af5dff0ef16
# Parent  365edc34920c82ded0383ca03d3e0f46d849c0d3
#DOCUMENTATION by cg
class: LazyMethod
changed: #noByteCode

diff -r 365edc34920c -r 4649f9dd9614 LazyMethod.st
--- 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'!