core: Implement stack and frame.
[mes.git] / src / gc.c
index fc2cd5c38dae60fadc39e8b4c13874405d1762dd..7dfb5831322e1ca7b0e6539ac547c11666be276d 100644 (file)
--- a/src/gc.c
+++ b/src/gc.c
@@ -202,6 +202,7 @@ gc_ () ///((internal))
   g_symbols = gc_copy (g_symbols);
   g_macros = gc_copy (g_macros);
   g_ports = gc_copy (g_ports);
   g_symbols = gc_copy (g_symbols);
   g_macros = gc_copy (g_macros);
   g_ports = gc_copy (g_ports);
+  m0 = gc_copy (m0);
   for (long i=g_stack; i<STACK_SIZE; i++)
     g_stack_array[i]= gc_copy (g_stack_array[i]);
   gc_loop (1);
   for (long i=g_stack; i<STACK_SIZE; i++)
     g_stack_array[i]= gc_copy (g_stack_array[i]);
   gc_loop (1);