core: Workaround for mescc.

* src/mes.c (eval_apply)[__MESC__]: Add reminder for macro_p, global_p.
2018-04-08 07:50:12 +02:00 · 2018-04-08 07:50:12 +02:00 · 20f66238c5
parent 28b3ec954b
commit 20f66238c5
1 changed files with 5 additions and 0 deletions
--- a/src/mes.c
+++ b/src/mes.c
@ -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);