pushed in a hurry, alimentation issue on laptop

[metalua.git] / src / compiler / mlc.mlua

diff --git a/src/compiler/mlc.mlua b/src/compiler/mlc.mlua
index a3eeb6f6585a9c4c8e7a68d1f82f14c982c42573..6f82ac9a8028b24a6262ae41ee1d3cbe354f8567 100644 (file)
--- a/src/compiler/mlc.mlua
+++ b/src/compiler/mlc.mlua
@@ -103,8 +103,9 @@ function mlc.convert (x, src_fmt, dst_fmt, name)
       -- x = error msg; get rid of ???
       x = x:strmatch "[^:]+:[0-9]+: (.*)" or x
       local li = lx:lineinfo_left()
-      error(string.format("Parsing error in %s line %s, column %i, char %s: \n%s",
-                          name or "<nofilename>", li[1], li[2], li[3], x))
+      error (string.format (
+         "Parsing error in %s line %s, column %i, char %s: \n%s",
+         name or "<nofilename>", li[1], li[2], li[3], x), 2)
       return nil
    end