Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Mon, 06 Feb 1995 03:57:17 +0100
changeset 55 699111111e17
parent 54 86c5b39c2eca
child 56 867ccf456147
*** empty log message ***
MessageNd.st file | annotate | diff | comparison | revisions
MessageNode.st file | annotate | diff | comparison | revisions 
--- a/MessageNd.st	Mon Feb 06 01:27:39 1995 +0100
+++ b/MessageNd.st	Mon Feb 06 03:57:17 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.16 1995-02-06 00:26:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.17 1995-02-06 02:57:17 claus Exp $
 '!
 
 !MessageNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.16 1995-02-06 00:26:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.17 1995-02-06 02:57:17 claus Exp $
 "
 !
 
@@ -1021,8 +1021,10 @@
 
 	((argArray at:1) isBlock) ifTrue:[
 	    ((selector == #ifTrue:) or:[selector == #ifFalse:]) ifTrue:[
-		self codeIfOn:aStream inBlock:b valueNeeded:valueNeeded.
-		^ self
+		receiver isBlock ifFalse:[
+		    self codeIfOn:aStream inBlock:b valueNeeded:valueNeeded.
+		    ^ self
+		].
 	    ].
 "
 	    ((selector == #and:) or:[selector == #or:]) ifTrue:[
@@ -1049,10 +1051,12 @@
 
     (nargs == 2) ifTrue:[
 	((selector == #ifTrue:ifFalse:) or:[selector == #ifFalse:ifTrue:]) ifTrue:[
-	    (argArray at:1) isBlock ifTrue:[
-		(argArray at:2) isBlock ifTrue:[
-		    self codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded.
-		    ^ self
+	    receiver isBlock ifFalse:[
+		(argArray at:1) isBlock ifTrue:[
+		    (argArray at:2) isBlock ifTrue:[
+			self codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded.
+			^ self
+		    ]
 		]
 	    ]
 	].
--- a/MessageNode.st	Mon Feb 06 01:27:39 1995 +0100
+++ b/MessageNode.st	Mon Feb 06 03:57:17 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.16 1995-02-06 00:26:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.17 1995-02-06 02:57:17 claus Exp $
 '!
 
 !MessageNode class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.16 1995-02-06 00:26:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.17 1995-02-06 02:57:17 claus Exp $
 "
 !
 
@@ -1021,8 +1021,10 @@
 
 	((argArray at:1) isBlock) ifTrue:[
 	    ((selector == #ifTrue:) or:[selector == #ifFalse:]) ifTrue:[
-		self codeIfOn:aStream inBlock:b valueNeeded:valueNeeded.
-		^ self
+		receiver isBlock ifFalse:[
+		    self codeIfOn:aStream inBlock:b valueNeeded:valueNeeded.
+		    ^ self
+		].
 	    ].
 "
 	    ((selector == #and:) or:[selector == #or:]) ifTrue:[
@@ -1049,10 +1051,12 @@
 
     (nargs == 2) ifTrue:[
 	((selector == #ifTrue:ifFalse:) or:[selector == #ifFalse:ifTrue:]) ifTrue:[
-	    (argArray at:1) isBlock ifTrue:[
-		(argArray at:2) isBlock ifTrue:[
-		    self codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded.
-		    ^ self
+	    receiver isBlock ifFalse:[
+		(argArray at:1) isBlock ifTrue:[
+		    (argArray at:2) isBlock ifTrue:[
+			self codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded.
+			^ self
+		    ]
 		]
 	    ]
 	].
hg/stx-libcomp