--- 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.
]