Inherit from ProtoObject.
--- a/Lazy.st Wed Jan 26 14:41:37 2005 +0100
+++ b/Lazy.st Wed Jan 26 14:54:57 2005 +0100
@@ -65,6 +65,9 @@
[author:]
tph@cs.man.ac.uk
+
+ [see also:]
+ Block LazyValue Future
"
!
@@ -102,16 +105,6 @@
"
! !
-!Lazy class methodsFor:'class initialization'!
-
-initialize
- "must avoid the checks"
-
- superclass := nil
-
- "Lazy initialize."
-! !
-
!Lazy methodsFor:'evaluating'!
block: aBlock
@@ -199,7 +192,5 @@
!Lazy class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Lazy.st,v 1.6 2003-10-10 16:32:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Lazy.st,v 1.7 2005-01-26 13:54:06 stefan Exp $'
! !
-
-Lazy initialize!
--- a/LazyValue.st Wed Jan 26 14:41:37 2005 +0100
+++ b/LazyValue.st Wed Jan 26 14:54:57 2005 +0100
@@ -12,7 +12,7 @@
"{ Package: 'stx:libbasic2' }"
-nil subclass:#LazyValue
+ProtoObject subclass:#LazyValue
instanceVariableNames:'result block'
classVariableNames:'AccessLock'
poolDictionaries:''
@@ -44,7 +44,7 @@
Can be used to simulate non-strict programming languages.
[see also:]
- Block Future
+ Block Future LazyValue
[author:]
Claus Gittinger
@@ -470,7 +470,7 @@
!LazyValue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/LazyValue.st,v 1.4 2003-08-29 19:23:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/LazyValue.st,v 1.5 2005-01-26 13:54:57 stefan Exp $'
! !
LazyValue initialize!