loadClasses
changeset 675 d409e317e7ff
parent 634 c5a9d34c6ae5
child 676 31231f2e71cb
--- 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.
 ].