From be1be50f6672566573b86ad9d35aa69a70e0c2ae Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 26 Oct 2019 08:12:57 +0200
Subject: [PATCH] ASSERT_MSG: mes

---
 src/mes.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/mes.c b/src/mes.c
index dae4bd8b..bea13b90 100644
--- a/src/mes.c
+++ b/src/mes.c
@@ -182,16 +182,16 @@ length (SCM x)
 SCM
 error (SCM key, SCM x)
 {
-#if !__MESC_MES__
-  SCM throw;
-  if ((throw = module_ref (R0, cell_symbol_throw)) != cell_undefined)
+#if !__MESC_MES__ && !__M2_PLANET__
+  SCM throw = module_ref (R0, cell_symbol_throw);
+  if (throw != cell_undefined)
     return apply (throw, cons (key, cons (x, cell_nil)), R0);
 #endif
   display_error_ (key);
   eputs (": ");
   write_error_ (x);
   eputs ("\n");
-  assert_msg (0, "0");
+  assert_msg (0, "ERROR");
   exit (1);
 }