diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-02-22 19:30:40 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-02-22 19:30:40 -0800 |
commit | 0e50007d98c6b507e71762d9e5d21b2ee9ec4886 (patch) | |
tree | 94a5d2d886acc6f2797da6ade1ceacb590ecd9f6 /parser.y | |
parent | 1dabce1358de135b82bf0831f045352b3ff9ab1c (diff) | |
download | txr-0e50007d98c6b507e71762d9e5d21b2ee9ec4886.tar.gz txr-0e50007d98c6b507e71762d9e5d21b2ee9ec4886.tar.bz2 txr-0e50007d98c6b507e71762d9e5d21b2ee9ec4886.zip |
* parser.y: Allow the (. expr) syntax to denote expr.
* eval.h: Declare existing lambda_s extern variable.
* lib.c (obj_print, obj_pprint): print (lambda sym ...)
as (lambda (. sym) ...) and (lambda sym) as (lambda (. sym)).
* txr.1: document it.
Diffstat (limited to 'parser.y')
-rw-r--r-- | parser.y | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -702,6 +702,7 @@ hash : HASH_H list { if (unquotes_occur($2)) list : '(' n_exprs ')' { $$ = rl($2, num($1)); } | '(' ')' { $$ = nil; } + | '(' '.' n_expr ')' { $$ = $3; } | '[' n_exprs ']' { $$ = rl(cons(dwim_s, $2), num($1)); } | '[' ']' { $$ = rl(cons(dwim_s, nil), num($1)); } | '@' n_expr { if (consp($2)) |