diff options
| -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 a0e2a39e..b4f6c8c8 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -175,7 +175,7 @@ (set aws.rec rec aws.orig-rec rec) (inc aws.rec-num) (inc aws.file-rec-num) - (while* (eq :awk-again (block :awk-rec [func aws])) + (while* (eq :awk-again (block* :awk-rec [func aws])) aws.(rec-to-f))) (when end-file-func [end-file-func aws]))))))) |