Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Wed, 15 Feb 1995 12:29:34 +0100
changeset 254 d31147d53ff7
parent 253 30daee717a53
child 255 2b2c5c0facab
*** empty log message ***
Autoload.st file | annotate | diff | comparison | revisions
Class.st file | annotate | diff | comparison | revisions 
--- a/Autoload.st	Wed Feb 15 11:27:52 1995 +0100
+++ b/Autoload.st	Wed Feb 15 12:29:34 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.16 1995-02-02 12:20:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.17 1995-02-15 11:29:30 claus Exp $
 '!
 
 !Autoload class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.16 1995-02-02 12:20:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.17 1995-02-15 11:29:30 claus Exp $
 "
 !
 
@@ -149,7 +149,7 @@
     "use this to force loading
      - it is defined a noop in all non-autoloading clases"
 
-    |mySelf myName newClass prev|
+    |mySelf myName newClass|
 
     mySelf := self.
     myName := self name asSymbol.
@@ -160,16 +160,6 @@
     "load it"
     Transcript showCr:('autoloading ', myName , ' ...'); endEntry.
 
-"/    LazyLoading ifTrue:[
-"/        prev := Compiler compileLazy:true.
-"/        [
-"/            Smalltalk fileInClass:myName.
-"/        ] valueNowOrOnUnwindDo:[
-"/            Compiler compileLazy:prev
-"/        ]
-"/    ] ifFalse:[
-"/        Smalltalk fileInClass:myName initialize:false.
-"/    ].
     Smalltalk fileInClass:myName initialize:false lazy:LazyLoading.
 
     "did it work ?"
--- a/Class.st	Wed Feb 15 11:27:52 1995 +0100
+++ b/Class.st	Wed Feb 15 12:29:34 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.29 1995-02-15 10:21:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.30 1995-02-15 11:29:34 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.29 1995-02-15 10:21:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.30 1995-02-15 11:29:34 claus Exp $
 "
 !
 
@@ -1717,7 +1717,7 @@
 fileOutOn:aStream
     "file out my definition and all methods onto aStream"
 
-    |collectionOfCategories copyrightText sep comment s|
+    |collectionOfCategories copyrightText sep comment|
 
     "
      if there is a copyright method, add a copyright comment
hg/stx-libbasic