core: Rewrite eval_apply in continuation passing style.
[mes.git] / lib.c
diff --git a/lib.c b/lib.c
index eaf26ce35eaa4b7bf9ab6d6967fca3df136044c9..f5b04ba62e7410ce44cf9d6f637f4c2ec4c6d1c0 100644 (file)
--- a/lib.c
+++ b/lib.c
@@ -144,7 +144,7 @@ dump ()
 SCM
 load_env (SCM a) ///((internal))
 {
-  r0 =a;
+  r0 = a;
   g_stdin = fopen ("module/mes/read-0.mes", "r");
   g_stdin = g_stdin ? g_stdin : fopen (PREFIX "module/mes/read-0.mes", "r");
   if (!g_function) r0 = mes_builtins (r0);