From 7025b2c547d3611301e3e6fde8422aaba2acfd3f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 7 May 2015 06:39:07 -0700 Subject: * Makefile (LISP_TO_C_STRING): Strip comments, but not comment lines, so line numbers don't change. * eval.c (eval_init): Fix registrations of lisp-parse and read. * lisplib.c (place_instantiate): Give name to parsed string stream using new lisp_parse argument. * parser.c (lisp_parse): Takes new argument to override name. * parser.h (lisp_parse): Declaration updated. * txr.c (txr_main): Call lisp_parse with four args, defaulting the new one. * txr.1: Documented new argument. --- lisplib.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisplib.c') diff --git a/lisplib.c b/lisplib.c index d6b7876a..1be90260 100644 --- a/lisplib.c +++ b/lisplib.c @@ -66,7 +66,8 @@ 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, nil), nil); + return eval_intrinsic(lisp_parse(static_str(place_code), std_error, + colon_k, lit("place.tl")), nil); } void lisplib_init(void) -- cgit v1.2.3