--- 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!