--- a/Autoload.st Sat Nov 09 00:46:53 1996 +0100
+++ b/Autoload.st Sat Nov 09 00:55:16 1996 +0100
@@ -139,10 +139,10 @@
(self == Autoload) ifTrue:[^ super fileOutDefinitionOn:aStream].
myName := self name.
- aStream nextPutAll:'"' ; nextPutAll:'Notice from Autoload:'; cr; cr;
- spaces:4; nextPutAll:myName , ' is not yet loaded.'; cr; cr.
+ aStream nextPutAll:'"' ; nextPutLine:'Notice from Autoload:'; cr;
+ spaces:4; nextPutLine:myName , ' is not yet loaded.'; cr.
aStream nextPutAll:'to load, execute: '.
- aStream cr; cr; spaces:4; nextPutAll:myName , ' autoload'; cr.
+ aStream cr; cr; spaces:4; nextPutLine:myName , ' autoload'.
"
the following is simply informative ...
@@ -171,15 +171,15 @@
].
].
nm notNil ifTrue:[
- aStream cr; nextPutAll:'When accessed, ' , myName , ' will automatically be loaded'; cr.
- aStream nextPutAll:'from: '; cr; spaces:4; nextPutAll:nm.
+ aStream cr; nextPutLine:'When accessed, ' , myName , ' will automatically be loaded'.
+ aStream nextPutLine:'from: '; spaces:4; nextPutAll:nm.
nm asFilename isSymbolicLink ifTrue:[
aStream cr; cr.
- aStream nextPutAll:'which is a link to: '; cr; spaces:4;
+ aStream nextPutLine:'which is a link to: '; spaces:4;
nextPutAll:(nm asFilename linkInfo path).
]
] ifFalse:[
- aStream cr; nextPutAll:'There is currently no file to load ' , myName , ' from.'; cr; cr.
+ aStream cr; nextPutLine:'There is currently no file to load ' , myName , ' from.'; cr.
(mgr := Smalltalk at:#SourceCodeManager) notNil ifTrue:[
classFileName := Smalltalk fileNameForClass:myName.
@@ -195,7 +195,7 @@
aStream cr; nextPutAll:'"'.
"Created: 8.12.1995 / 00:31:53 / cg"
- "Modified: 1.11.1996 / 20:47:47 / cg"
+ "Modified: 8.11.1996 / 23:52:55 / cg"
! !
!Autoload class methodsFor:'lazy compilation'!
@@ -484,6 +484,6 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.56 1996-11-01 19:51:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.57 1996-11-08 23:55:16 cg Exp $'
! !
Autoload initialize!