Inherit from ProtoObject.
authorStefan Vogel <sv@exept.de>
Wed, 26 Jan 2005 14:54:57 +0100
changeset 1515 006cd21bbc25
parent 1514 83af7e61d415
child 1516 08829dfb29fe
Inherit from ProtoObject.
Lazy.st
LazyValue.st
--- 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!