Parser.st
changeset 3445 62037b3c3fca
parent 3442 0c7fd8c5bd86
child 3448 a8551bb9c83d
--- a/Parser.st	Thu May 15 19:20:15 2014 +0200
+++ b/Parser.st	Thu May 15 19:26:06 2014 +0200
@@ -1538,11 +1538,16 @@
      used selectors, modified instvars, referenced classvars etc.
      Error and warning messages are sent to the Transcript."
 
-    ^ self
-	parseMethod:aString
-	in:aClass
-	ignoreErrors:false
-	ignoreWarnings:false
+    ParseError handle:[:ex | 
+        Transcript showCR:ex description.
+        ex proceed.
+    ] do:[
+        ^ self
+            parseMethod:aString
+            in:aClass
+            ignoreErrors:false
+            ignoreWarnings:false
+    ].
 
     "Modified: 24.4.1996 / 13:18:34 / cg"
 !
@@ -11882,11 +11887,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.824 2014-05-13 22:59:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.825 2014-05-15 17:26:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.824 2014-05-13 22:59:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.825 2014-05-15 17:26:06 cg Exp $'
 !
 
 version_SVN