--- a/BlockNode.st	Mon Aug 22 15:47:03 1994 +0200
+++ b/BlockNode.st	Tue Aug 23 18:17:18 1994 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.8 1994-08-11 21:40:43 claus Exp $
+$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.9 1994-08-23 16:17:14 claus Exp $
 '!
 
 !BlockNode class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.8 1994-08-11 21:40:43 claus Exp $
+$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.9 1994-08-23 16:17:14 claus Exp $
 "
 !
 
@@ -382,7 +382,6 @@
             thisStatement := nextStatement
         ]
     ].
-"/    aStream nextPut:#blockRetTop.
     aStream nextPut:#retTop.
 
     "check for [0]-block;
@@ -390,7 +389,6 @@
     "
     code := (aStream contents).
     (code at:pos+4) == #push0 ifTrue:[
-"/        (code at:pos+5) == #blockRetTop ifTrue:[
         (code at:pos+5) == #retTop ifTrue:[
             aStream position:pos.
             code grow:pos.
@@ -405,7 +403,6 @@
     "
     code := (aStream contents).
     (code at:pos+4) == #pushNil ifTrue:[
-"/        (code at:pos+5) == #blockRetTop ifTrue:[
         (code at:pos+5) == #retTop ifTrue:[
             aStream position:pos.
             code grow:pos.
@@ -488,19 +485,11 @@
     val == 0 ifTrue:[
         "a [0]-block"
 
-"
-        code := ByteArray with:(ByteCodeCompiler byteCodeFor:#push0)
-                          with:(ByteCodeCompiler byteCodeFor:#blockRetTop).
-"
         code := ByteArray with:(ByteCodeCompiler byteCodeFor:#ret0).
     ].
     val == 1 ifTrue:[
         "a [1]-block"
 
-"
-        code := ByteArray with:(ByteCodeCompiler byteCodeFor:#push1)
-                          with:(ByteCodeCompiler byteCodeFor:#blockRetTop).
-"
         code := ByteArray with:(ByteCodeCompiler byteCodeFor:#push1)
                           with:(ByteCodeCompiler byteCodeFor:#retTop).
     ].
@@ -508,30 +497,18 @@
     val == true ifTrue:[
         "a [true]-block"
 
-"
-        code := ByteArray with:(ByteCodeCompiler byteCodeFor:#pushTrue)
-                          with:(ByteCodeCompiler byteCodeFor:#blockRetTop).
-"
         code := ByteArray with:(ByteCodeCompiler byteCodeFor:#retTrue).
     ].
 
     val == false ifTrue:[
         "a [false]-block"
 
-"
-        code := ByteArray with:(ByteCodeCompiler byteCodeFor:#pushFalse)
-                          with:(ByteCodeCompiler byteCodeFor:#blockRetTop).
-"
         code := ByteArray with:(ByteCodeCompiler byteCodeFor:#retFalse).
     ].
 
     val == nil ifTrue:[
         "a [nil]-block"
 
-"
-        code := ByteArray with:(ByteCodeCompiler byteCodeFor:#pushNil)
-                          with:(ByteCodeCompiler byteCodeFor:#blockRetTop).
-"
         code := ByteArray with:(ByteCodeCompiler byteCodeFor:#retNil).
     ].