# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1290712479 -3600
# Node ID 89458faaeeb3bf2c454509b64f43007aed917b5c
# Parent  cc6185d314fc7b30efe7bd0325250a252f880c3a
changed: #reportCompilationError
   raise an error

diff -r cc6185d314fc -r 89458faaeeb3 STCCompilerInterface.st
--- a/STCCompilerInterface.st	Thu Nov 25 20:12:18 2010 +0100
+++ b/STCCompilerInterface.st	Thu Nov 25 20:14:39 2010 +0100
@@ -725,16 +725,15 @@
             eMsg := 'Error during compilation:\\' withCRs ,
                     (errorMessages asStringCollection asString).
         ].
-        "/ eMsg := eMsg withCRs
     ].
-    originator activityNotification:'compilation failed'.
-    lNr notNil ifTrue:[
-        originator parseError:eMsg line:lNr
-    ] ifFalse:[
-        originator parseError:eMsg position:1.
-    ].
+
     originator activityNotification:''.
 
+    Parser::ParseError new
+        lineNumber:lNr;
+        errorMessage:eMsg;
+        raise.
+
     "Created: / 07-11-2006 / 12:29:04 / cg"
 !
 
@@ -800,11 +799,11 @@
 !STCCompilerInterface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.15 2010-04-16 17:36:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.16 2010-11-25 19:14:39 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.15 2010-04-16 17:36:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.16 2010-11-25 19:14:39 stefan Exp $'
 ! !
 
 STCCompilerInterface initialize!