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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jul 1996 10:04:57 +0200
changeset 309 11b78163a914
parent 308 fe3b95e6d9c0
child 310 27ed956b591e
checkin from browser
MessageNd.st file | annotate | diff | comparison | revisions
MessageNode.st file | annotate | diff | comparison | revisions 
--- a/MessageNd.st	Thu Jul 18 10:01:16 1996 +0200
+++ b/MessageNd.st	Thu Jul 18 10:04:57 1996 +0200
@@ -609,13 +609,13 @@
         subsel := theReceiver selector.
 
         (subsel == #and:) ifTrue:[
-            theReceiver arg1 isBlockNode ifTrue:[
+            theReceiver arg1 isBlock ifTrue:[
                 self codeAndIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
                 ^ self
             ]
         ].
         (subsel == #or:) ifTrue:[
-            theReceiver arg1 isBlockNode ifTrue:[
+            theReceiver arg1 isBlock ifTrue:[
                 self codeOrIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
                 ^ self
             ]
@@ -675,7 +675,7 @@
         code at:pos put:(aStream position)
     ]
 
-    "Modified: 18.7.1996 / 09:58:53 / cg"
+    "Modified: 18.7.1996 / 10:04:13 / cg"
 !
 
 codeOn:aStream inBlock:b for:aCompiler
@@ -1564,5 +1564,5 @@
 !MessageNode  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.49 1996-07-18 08:01:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.50 1996-07-18 08:04:57 cg Exp $'
 ! !
--- a/MessageNode.st	Thu Jul 18 10:01:16 1996 +0200
+++ b/MessageNode.st	Thu Jul 18 10:04:57 1996 +0200
@@ -609,13 +609,13 @@
         subsel := theReceiver selector.
 
         (subsel == #and:) ifTrue:[
-            theReceiver arg1 isBlockNode ifTrue:[
+            theReceiver arg1 isBlock ifTrue:[
                 self codeAndIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
                 ^ self
             ]
         ].
         (subsel == #or:) ifTrue:[
-            theReceiver arg1 isBlockNode ifTrue:[
+            theReceiver arg1 isBlock ifTrue:[
                 self codeOrIfOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler.
                 ^ self
             ]
@@ -675,7 +675,7 @@
         code at:pos put:(aStream position)
     ]
 
-    "Modified: 18.7.1996 / 09:58:53 / cg"
+    "Modified: 18.7.1996 / 10:04:13 / cg"
 !
 
 codeOn:aStream inBlock:b for:aCompiler
@@ -1564,5 +1564,5 @@
 !MessageNode  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.49 1996-07-18 08:01:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.50 1996-07-18 08:04:57 cg Exp $'
 ! !
hg/stx-libcomp