diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/awk.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 05567956..90f9e8b0 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -125,7 +125,10 @@ in)) (when beg-file-func [beg-file-func aws]) - (let* ((*stdin* (if (streamp in) in (open-file in))) + (let* ((*stdin* (cond + ((streamp in) in) + ((listp in) (make-strlist-input-stream in)) + ((open-file in)))) (noted-rs (not aws.rs)) (noted-krs (not aws.krs)) (cached-rr nil)) |