From 3e2af73a078ff12bb847d3f8f61b99d77dc3bf09 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 4 Apr 2018 23:33:18 -0700 Subject: 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. --- parser.c | 3 +-- 1 file changed, 1 insertion(+), 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); -- cgit v1.2.3