checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 19 Oct 1998 20:40:22 +0200
changeset 787 9a178fa050b9
parent 786 5b2a58071634
child 788 5307f69829c6
checkin from browser
Parser.st
--- a/Parser.st	Mon Oct 19 14:58:27 1998 +0200
+++ b/Parser.st	Mon Oct 19 20:40:22 1998 +0200
@@ -3240,7 +3240,7 @@
             self parseError:try position:pos to:tokenPosition.
             errorFlag := false. "ok, user wants it - so he'll get it"
             receiver := BinaryNode receiver:receiver selector:sel arg:arg fold:nil.
-            note := receiver plausibilityCheck.
+            note := self plausibilityCheck:receiver.
             note notNil ifTrue:[
                 self warning:note position:pos to:tokenPosition
             ].
@@ -3254,7 +3254,7 @@
     ^ receiver
 
     "Modified: / 9.1.1998 / 19:05:18 / stefan"
-    "Modified: / 31.3.1998 / 18:17:29 / cg"
+    "Modified: / 19.10.1998 / 19:56:40 / cg"
 !
 
 byteArray
@@ -3491,7 +3491,7 @@
             self parseError:try position:pos1 to:pos2.
             errorFlag := false. "ok, user wants it - so he'll get it"
             receiver := MessageNode receiver:receiver selector:sel args:args fold:nil.
-            note := receiver plausibilityCheck.
+            note := self plausibilityCheck:receiver.
             note notNil ifTrue:[
                 self warning:note position:pos1 to:pos2
             ].
@@ -3518,7 +3518,7 @@
     ].
     ^ receiver
 
-    "Modified: / 31.3.1998 / 17:54:16 / cg"
+    "Modified: / 19.10.1998 / 19:56:55 / cg"
 !
 
 primary
@@ -4353,6 +4353,13 @@
 
     "Modified: / 17.6.1996 / 17:18:41 / stefan"
     "Modified: / 18.6.1998 / 15:45:29 / cg"
+!
+
+plausibilityCheck:aNode
+    ^ aNode plausibilityCheck
+
+    "Created: / 19.10.1998 / 19:56:09 / cg"
+    "Modified: / 19.10.1998 / 19:56:29 / cg"
 ! !
 
 !Parser methodsFor:'queries'!
@@ -4691,6 +4698,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.187 1998-08-25 07:26:28 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.188 1998-10-19 18:40:22 cg Exp $'
 ! !
 Parser initialize!