--- a/Method.st Wed Apr 14 11:07:50 2004 +0200
+++ b/Method.st Thu Apr 15 10:45:50 2004 +0200
@@ -204,20 +204,18 @@
"type-byte"
stream nextByte == 0 ifTrue:[
- "
- built-in method
- "
- cls := manager nextObject.
- sel := manager nextObject.
-
- "
- mhmh - on the source system, this was a machinecode
- method, while here its an interpreted one ...
- "
- cls isLoaded ifFalse:[
- cls autoload
- ].
- ^ cls compiledMethodAt:sel
+ "
+ built-in method
+ "
+ cls := manager nextObject.
+ sel := manager nextObject.
+
+ "
+ mhmh - on the source system, this was a machinecode
+ method, while here its an interpreted one ...
+ "
+ cls := cls autoload.
+ ^ cls compiledMethodAt:sel
].
"
bytecode method
@@ -2917,7 +2915,7 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.272 2004-03-29 16:31:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.273 2004-04-15 08:45:17 stefan Exp $'
! !
Method initialize!