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.
.
authorclaus
Fri, 19 May 1995 01:26:59 +0200
changeset 91 198e8daefeae
parent 90 e1b3f76d2730
child 92 eb7d13034b97
.
Parser.st file | annotate | diff | comparison | revisions
Scanner.st file | annotate | diff | comparison | revisions 
--- a/Parser.st	Fri May 19 00:57:15 1995 +0200
+++ b/Parser.st	Fri May 19 01:26:59 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.41 1995-05-18 22:57:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.42 1995-05-18 23:26:49 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.41 1995-05-18 22:57:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.42 1995-05-18 23:26:49 claus Exp $
 "
 !
 
@@ -1162,7 +1162,7 @@
     |m|
 
     errorFlag := true.
-    m := ' Error: ' , aMessage.
+    m := 'Error: ' , aMessage.
     self notifyError:m position:position to:endPos.
     exitBlock notNil ifTrue:[exitBlock value].
     ^ false
@@ -1226,7 +1226,7 @@
 	 it is supposed to raise abort or return true/false.
 	 True return means that correction is wanted.
 	"
-	doCorrect := self correctableError:('Error: ' , aName , ' is undefined') position:pos1 to:pos2
+	doCorrect := self correctableError:('Warning: ' , aName , ' is undefined') position:pos1 to:pos2
     ].
 
     doCorrect ifFalse:[
--- a/Scanner.st	Fri May 19 00:57:15 1995 +0200
+++ b/Scanner.st	Fri May 19 01:26:59 1995 +0200
@@ -35,7 +35,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.27 1995-05-18 15:38:32 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.28 1995-05-18 23:26:59 claus Exp $
 '!
 
 !Scanner class methodsFor:'documentation'!
@@ -56,7 +56,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.27 1995-05-18 15:38:32 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.28 1995-05-18 23:26:59 claus Exp $
 "
 !
 
@@ -439,7 +439,7 @@
 syntaxError:aMessage position:position to:endPos
     "a syntax error happened"
 
-    self notifyError:(' Error:' , aMessage) position:position to:endPos.
+    self notifyError:('Error:' , aMessage) position:position to:endPos.
     exitBlock notNil ifTrue:[exitBlock value].
     ^ false
 !
hg/stx-libcomp