core: Workaround for mescc.

* src/mes.c (eval_apply)[__MESC__]: Add reminder for macro_p, global_p.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-08 07:50:12 +02:00
parent 28b3ec954b
commit 20f66238c5

View file

@ -1173,6 +1173,11 @@ eval_apply ()
SCM name = CADR (r2);
if (TYPE (CADR (r2)) == TPAIR)
name = CAR (name);
#if __MESC__
// hmm, mes needs a reminder...
global_p = CAAR (r0) != cell_closure;
macro_p = CAR (r2) == cell_symbol_define_macro;
#endif // __MESC__
if (macro_p)
{
SCM entry = assq (name, g_macros);