BCompiler.st
changeset 110 96fc5c3540f1
parent 109 2bbde4ba43db
child 111 c94471645c21
--- a/BCompiler.st	Thu Aug 17 18:10:39 1995 +0200
+++ b/BCompiler.st	Sat Aug 19 03:44:18 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.36 1995-08-19 01:43:41 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.36 1995-08-19 01:43:41 claus Exp $
 "
 !
 
@@ -1487,6 +1487,8 @@
     (aSymbol == #isNil) ifTrue:[^ 188].
     (aSymbol == #notNil) ifTrue:[^ 189].
     (aSymbol == #not) ifTrue:[lineno := true. ^ 179].
+    (aSymbol == #&) ifTrue:[lineno := true. ^ 216].
+    (aSymbol == #|) ifTrue:[lineno := true. ^ 217].
 
     (aSymbol == #sendL) ifTrue:[lineno := true. extra := #special. ^ 205].
     (aSymbol == #sendDropL) ifTrue:[lineno := true. extra := #special. ^ 204].
@@ -1532,6 +1534,9 @@
     ].
     class allSuperclasses reverseDo:[:cls|
 	cls ~~ Object ifTrue:[
+	    cls isLoaded ifFalse:[
+		^ #Error
+	    ].
 	    cls fileOutDefinitionOn:stream.
 	    stream nextPut:sep; cr.
 	]