core: primitive-load: Force top level.

* src/eval-apply.c (eval_apply): Force toplevel for primitive load.
2019-11-15 16:10:22 +01:00 · 2019-11-15 16:10:22 +01:00 · e7c6bad7ee
parent ebccc7cc39
commit e7c6bad7ee
1 changed files with 2 additions and 0 deletions
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@ -802,6 +802,8 @@ begin:
            {
              program = cons (R1->car, cell_nil);
              push_cc (program, R1, R0, cell_vm_begin_primitive_load);
+              /* Force toplevel by moving any *closure* down.  */
+              R0 = cons (cell_undefined, R0);
              goto begin_expand;
            begin_primitive_load:
              R2->car = R1;