--- a/loadClasses Wed May 10 13:05:58 2000 +0000
+++ b/loadClasses Wed May 10 14:32:10 2000 +0000
@@ -61,27 +61,10 @@
'SmalltalkAppletStub'
).
-(Smalltalk loadClassLibraryIfAbsent:'libjava') ifTrue:[
- |handle loaded|
-
- loaded := OrderedCollection new.
- handle := ObjectFileLoader loadedObjectHandles
- detect:[:h | |cls|
- cls := h classes firstIfEmpty:nil.
- cls notNil and:[cls package = 'stx:libjava']
- ]
- ifNone:nil.
- handle notNil ifTrue:[
- handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]].
- ].
- files := files asOrderedCollection.
- loaded do:[:f| files remove:f ifAbsent:[]].
-].
-
files size > 0 ifTrue:[
files do:[:s|
'.' print.
- Smalltalk fileIn:s.
+ Smalltalk fileIn:(s , '.st').
].
' ' printCR.
].