Dot with no whitespace generates qref syntax.

a.b.(expr ...).c -> (qref a b (expr ...) c)
Consing dot requires whitespace.

* eval.c (qref_s): New symbol global variable.
(eval_init): Initialize qref_s.

* eval.h (qref_s): Declared.

* parser.l (REQWS): New pattern definition, required whitespace.
(grammar): New rules to scan CONSDOT (space required on both
sides) and LAMBDOT (space required after).

* parser.y (CONSDOT, LAMBDOT): New token types.
(list): (. n_expr) rule replaced with LAMBDOT and CONSDOT.
(r_exprs): r_exprs . n_expr consing dot rule replaced with CONSDOT.
(n_expr): New n_expr . n_expr rule introduced here for producing
qref expressions.
(yybadtoken): Handle CONSDOT and LAMBDOT.

* txr.1: Documented qref dot.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.h b/eval.h
index ea74148d..8519a83e 100644
--- a/eval.h
+++ b/eval.h
@@ -25,7 +25,7 @@
  */
 
 extern val dwim_s, lambda_s, vector_lit_s, vector_list_s;
-extern val hash_lit_s, hash_construct_s;
+extern val hash_lit_s, hash_construct_s, qref_s;
 extern val eval_error_s;
 extern val last_form_evaled, last_form_expanded;