X-Git-Url: http://nitlanguage.org

diff --git a/src/interpreter/naive_interpreter.nit b/src/interpreter/naive_interpreter.nit
index 66afa45..616977a 100644
--- a/src/interpreter/naive_interpreter.nit
+++ b/src/interpreter/naive_interpreter.nit
@@ -61,7 +61,7 @@ class NaiveInterpreter
 	var modelbuilder: ModelBuilder
 
 	# The main module of the program (used to lookup method)
-	var mainmodule: MModule
+	var mainmodule: MModule is writable
 
 	# The command line arguments of the interpreted program
 	# arguments.first is the program name
@@ -119,7 +119,10 @@ class NaiveInterpreter
 	var escapemark: nullable EscapeMark = null
 
 	# The count of `catch` blocs that have been encountered and can catch an abort
-	var catch_count = 0
+	var catch_count = 0 is writable
+
+	# The last error thrown on abort/runtime error where catch_count > 0
+	var last_error: nullable FatalError = null
 
 	# Is a return or a break or a continue executed?
 	# Use this function to know if you must skip the evaluation of statements
@@ -685,6 +688,15 @@ class NaiveInterpreter
 	var error_instance = new MutableInstance(modelbuilder.model.null_type) is lazy
 end
 
+# A runtime error
+class FatalError
+	# The error message
+	var message: String
+
+	# The problematic node, if any
+	var node: nullable ANode
+end
+
 # An instance represents a value of the executed program.
 abstract class Instance
 	# The dynamic type of the instance
@@ -823,10 +835,11 @@ redef class ANode
 	do
 		# Abort if there is a `catch` block
 		if v.catch_count > 0 then
+			v.last_error = new FatalError(message, self)
 			abort
 		end
 
-		if v.modelbuilder.toolcontext.opt_no_color.value == true then
+		if v.modelbuilder.toolcontext.opt_no_color.value then
 			sys.stderr.write("Runtime error: {message} ({location.file.filename}:{location.line_start})\n")
 		else
 			sys.stderr.write("{location}: Runtime error: {message}\n{location.colored_line("0;31")}\n")