diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-05-19 20:55:34 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-05-19 20:55:34 -0700 |
commit | 6e30b0bbaa50af7404307a723b0e189b9777aa2e (patch) | |
tree | 1df9c36da0a775d9a58a38e33439d412e9cb9f37 /lisplib.c | |
parent | 7b0341d13bab3e7c2202327d56d150e2c7887045 (diff) | |
download | txr-6e30b0bbaa50af7404307a723b0e189b9777aa2e.tar.gz txr-6e30b0bbaa50af7404307a723b0e189b9777aa2e.tar.bz2 txr-6e30b0bbaa50af7404307a723b0e189b9777aa2e.zip |
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.
Diffstat (limited to 'lisplib.c')
-rw-r--r-- | lisplib.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |