--- a/LazyMethod.st Wed Jul 07 19:41:07 1999 +0200
+++ b/LazyMethod.st Wed Jul 07 19:41:37 1999 +0200
@@ -172,13 +172,16 @@
resources
"cannot ask a lazyMethod for resources ..."
- ^ self asExecutableMethod resources
+ |m|
+
+ (m := self asExecutableMethod) notNil ifTrue:[^ m resources].
+ ^ nil
! !
!LazyMethod class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.26 1999-07-07 17:41:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.27 1999-07-07 17:41:37 cg Exp $'
! !
LazyMethod initialize!