diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-05-07 06:39:07 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-05-07 06:39:07 -0700 |
| commit | 7025b2c547d3611301e3e6fde8422aaba2acfd3f (patch) | |
| tree | 606737c602e6f607c10750b3c03cf895585d12af /eval.c | |
| parent | 535fff2f4e9d8a84521296c77c01e90122fcdd48 (diff) | |
| download | txr-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 'eval.c')
| -rw-r--r-- | eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4131,8 +4131,8 @@ void eval_init(void) func_n4o(hash_update_1, 3)); reg_fun(intern(lit("eval"), user_package), func_n2o(eval_intrinsic, 1)); - reg_fun(intern(lit("lisp-parse"), user_package), func_n3o(lisp_parse, 0)); - reg_fun(intern(lit("read"), user_package), func_n3o(lisp_parse, 0)); + reg_fun(intern(lit("lisp-parse"), user_package), func_n4o(lisp_parse, 0)); + reg_fun(intern(lit("read"), user_package), func_n4o(lisp_parse, 0)); reg_fun(intern(lit("expand"), system_package), func_n2o(expand, 1)); reg_fun(intern(lit("macro-form-p"), user_package), func_n2o(macro_form_p, 1)); reg_fun(intern(lit("macroexpand-1"), user_package), |