diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-14 20:52:11 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-14 20:52:11 -0700 |
| commit | d6f725293fdfd7d28ab5938256866b1fd3b49fe1 (patch) | |
| tree | aba89d5ecc7e8dbfd4dea95f3c057e37f0e3f594 /share/txr | |
| parent | 61617da8db174532055801a7ccdc244b8fb80f2e (diff) | |
| download | txr-d6f725293fdfd7d28ab5938256866b1fd3b49fe1.tar.gz txr-d6f725293fdfd7d28ab5938256866b1fd3b49fe1.tar.bz2 txr-d6f725293fdfd7d28ab5938256866b1fd3b49fe1.zip | |
awk macro: don't bind *stdout* if :output missing.
* share/txr/stdlib/awk.tl (awk): Bind *stdout* only if
awc.output is not nil; i.e. :output has been specified
(with a non-nil argument).
* txr.1: Revised :output documentation.
Diffstat (limited to 'share/txr')
| -rw-r--r-- | share/txr/stdlib/awk.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 45a655bd..fd4788da 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -211,7 +211,8 @@ ,*(if awc.inputs ^(inputs (list ,*awc.inputs))) ,*(if awc.output ^(output ,awc.output)) rng-n (macro-time (qref ,awc nranges)))) - (*stdout* (qref ,aws-sym output)) + ,*(if awc.output + ^((*stdout* (qref ,aws-sym output)))) ,*(if awc.begin-file-actions ^((,awk-begf-fun (lambda (,aws-sym) ,*awc.begin-file-actions)))) |