andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ASSERT_MSG: mes

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 08:12:57 +02:00
parent 6166d194ea
commit be1be50f66
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mes.c
View File

@ -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);
}