summaryrefslogtreecommitdiffstats
path: root/lisplib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-05-07 06:39:07 -0700
committerKaz Kylheku <kaz@kylheku.com>2015-05-07 06:39:07 -0700
commit7025b2c547d3611301e3e6fde8422aaba2acfd3f (patch)
tree606737c602e6f607c10750b3c03cf895585d12af /lisplib.c
parent535fff2f4e9d8a84521296c77c01e90122fcdd48 (diff)
downloadtxr-7025b2c547d3611301e3e6fde8422aaba2acfd3f.tar.gz
txr-7025b2c547d3611301e3e6fde8422aaba2acfd3f.tar.bz2
txr-7025b2c547d3611301e3e6fde8422aaba2acfd3f.zip
* 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.
Diffstat (limited to 'lisplib.c')
-rw-r--r--lisplib.c3
1 files changed, 2 insertions, 1 deletions
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)