core: primitive-load: Force top level.

* src/eval-apply.c (eval_apply): Force toplevel for primitive load.
This commit is contained in:
Jan Nieuwenhuizen 2019-11-15 16:10:22 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 3630976705
commit 83fc300c76
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 0 deletions

View File

@ -806,6 +806,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;