From 6e30b0bbaa50af7404307a723b0e189b9777aa2e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 19 May 2015 20:55:34 -0700 Subject: Represent place.tl more compactly in image. The contents of place.tl are now stored as a UTF-8 ordinary literal instead of a wide char literal. * Makefile (LISP_TO_C_STRING): Generate plain literal. * lisplib.c: Convert plain literal to string. --- lisplib.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisplib.c') diff --git a/lisplib.c b/lisplib.c index a6f4d931..d632f96c 100644 --- a/lisplib.c +++ b/lisplib.c @@ -67,7 +67,7 @@ static void set_place_dlt_entries(val dlt, val fun) static val place_instantiate(val dlt) { set_place_dlt_entries(dlt, nil); - return eval_intrinsic(lisp_parse(static_str(place_code), std_error, + return eval_intrinsic(lisp_parse(string_utf8(place_code), std_error, colon_k, lit("place.tl")), nil); } -- cgit v1.2.3