diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-11 22:50:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-11 22:50:13 -0700 |
| commit | bfd0152ff5cd968a8a64a4b130c43ccc806f7e6a (patch) | |
| tree | 06c5fec932fedcd882b3c3421ad369c8ad1abe9a | |
| parent | 32d33081b8bf385861869642c1ee3e12fe6009a0 (diff) | |
| download | txr-bfd0152ff5cd968a8a64a4b130c43ccc806f7e6a.tar.gz txr-bfd0152ff5cd968a8a64a4b130c43ccc806f7e6a.tar.bz2 txr-bfd0152ff5cd968a8a64a4b130c43ccc806f7e6a.zip | |
awk macro: don't use cat-str to update rec.
* share/txr/stdlib/awk.tl (sys:awk-state f-to-rec):
Use quasiliteral to combine fields to reconstitute
rec; cat-str works only with characters and strings.
| -rw-r--r-- | share/txr/stdlib/awk.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 62311fe2..dabff1fc 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -67,7 +67,7 @@ self.nf (length self.fields)))))))) (defmeth sys:awk-state f-to-rec (self) - (set self.rec (cat-str self.fields self.ofs))) + (set self.rec `@{self.fields self.ofs}`)) (defmeth sys:awk-state nf-to-f (self) (set self.fields (take self.nf (append self.fields (repeat '(""))))) |