* 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.

1 files changed, 13 insertions, 1 deletions

diff --git a/txr.1 b/txr.1
index f1c07fa6..02bf58c1 100644
--- a/txr.1
+++ b/txr.1
@@ -23464,7 +23464,7 @@ Examples of strings which are not absolute paths.
 
 .coNP Function @ read
 .synb
-.mets (read >> [ source >> [ error-stream <> [ error-return-value ]]])
+.mets (read >> [ source >> [ error-stream >> [ error-return-value <> [ name ]]]])
 .syne
 .desc
 The
@@ -23488,6 +23488,18 @@ The optional
 argument can be used to specify a stream to which
 parse errors diagnostics are sent. If absent, the diagnostics are suppressed.
 
+The optional
+.meta name
+argument can be used to specify the file name which is used for reporting
+errors. If this argument is missing, the name is taken from the name
+property of the
+.meta source
+argument if it is a stream, or else the word
+.code string
+is used as the name if
+.meta source
+is a string.
+
 If there are no parse errors, the function returns the parsed data
 structure. If there are parse errors, and the
 .meta error-return-value