core: Workaround for mescc.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 8 Apr 2018 05:50:12 +0000 (07:50 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 8 Apr 2018 05:50:12 +0000 (07:50 +0200)
* src/mes.c (eval_apply)[__MESC__]: Add reminder for macro_p, global_p.

src/mes.c

index 61ca9183ebda8b404dfe1e352efb5c0ddddd3e89..d3443c49f410f920ce0801f4c6638dc2c018f5d2 100644 (file)
--- 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);