From ddf51ecba8cc87a40038c89d9177dc425a82b56c Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 15 Nov 2019 16:36:00 +0100
Subject: [PATCH] Revert "core: primitive-load: Force top level."

This reverts commit 5912cbefbb27e95cd2ab9e47f7aea582dd98029e.
---
 src/eval-apply.c | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/eval-apply.c b/src/eval-apply.c
index ab635058..097410e9 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -806,8 +806,6 @@ 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;