diff options
| -rw-r--r-- | share/txr/stdlib/awk.tl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 6c85cb77..f94d6b9a 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -162,11 +162,11 @@ (t r)))))) (t (set aws.par-mode nil) - (let ((rin (record-adapter (if (regexp aws.rs) - aws.rs - (regex-compile aws.rs)) - *stdin* - aws.krs))) + (let ((rin (record-adapter + (if (regexp aws.rs) aws.rs + (regex-compile ^(compound, aws.rs))) + *stdin* + aws.krs))) (lambda () (get-line rin)))))))))) (set aws.file-rec-num 0) (unwind-protect |