mes: Better error reporting.

[mes.git] / src / lib.c

diff --git a/src/lib.c b/src/lib.c
index f97ce2134a8c637c73fc8289d492b0c71c2afca4..dd3ee52730647f3cc64e5ceb489837a7c7dc1e82 100644 (file)
--- a/src/lib.c
+++ b/src/lib.c
@@ -144,6 +144,13 @@ write_ (SCM x)
   return display_helper (x, 0, "", g_stdout, 1);
 }
 
+SCM
+write_error_ (SCM x)
+{
+  g_depth = 5;
+  return display_helper (x, 0, "", STDERR, 1);
+}
+
 SCM
 write_port_ (SCM x, SCM p)
 {