Parser.st
changeset 2120 814949599c47
parent 2119 b0362fb44c4e
child 2123 1a7ddedd2943
--- a/Parser.st	Tue Oct 21 17:39:21 2008 +0200
+++ b/Parser.st	Wed Oct 22 22:00:28 2008 +0200
@@ -4626,6 +4626,8 @@
     or:[parserFlags allowSqueakExtensions == true]) ifTrue:[
         self warnAboutEmptyStatement.
         self nextToken.
+    ] ifFalse:[
+        self parseError:'empty statement - please enable in the settings'
     ].
 
     "Created: / 20-11-2006 / 14:04:14 / cg"
@@ -8839,7 +8841,7 @@
     ].
     s := s , (errorMessage ? '').
     lineNumber notNil ifTrue:[
-        s := s , ' [' , lineNumber asString , ']'
+        s := s , ' [Line ' , lineNumber asString , ']'
     ].
     ^ s
 !
@@ -9380,7 +9382,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.581 2008-10-21 15:39:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.582 2008-10-22 20:00:28 cg Exp $'
 ! !
 
 Parser initialize!