load: remove hack for loading compiler.tlo.

* parser.c (read_file_common): Remove the check whether the
data vector is a list (due to have been converted to
sys:vector-lit by the presence of unquotes). This doesn't
happen any more, thanks to the previous parser commit.

1 files changed, 1 insertions, 2 deletions

diff --git a/parser.c b/parser.c
index 9d5d2577..081b8137 100644
--- a/parser.c
+++ b/parser.c
@@ -627,8 +627,7 @@ static val read_file_common(val stream, val error_stream, val compiled)
       val nlevels = pop(&form);
       val nregs = pop(&form);
       val bytecode = pop(&form);
-      val dv_raw = pop(&form);
-      val datavec = if3(consp(dv_raw), vec_list(cadr(dv_raw)), dv_raw);
+      val datavec = pop(&form);
       val funvec = car(form);
       val desc = vm_make_desc(nlevels, nregs, bytecode, datavec, funvec);
       (void) vm_execute_toplevel(desc);