diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-06-29 06:25:22 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-06-29 06:25:22 -0700 |
commit | e9e2e3eab9fa5fae02f7f82b56e43ddb162fc7e8 (patch) | |
tree | 2898c89db8dd1da71de933000ecd86532e1a3349 /stdlib | |
parent | a005758be5966320890e057ce35ee5ecfb905c15 (diff) | |
download | txr-e9e2e3eab9fa5fae02f7f82b56e43ddb162fc7e8.tar.gz txr-e9e2e3eab9fa5fae02f7f82b56e43ddb162fc7e8.tar.bz2 txr-e9e2e3eab9fa5fae02f7f82b56e43ddb162fc7e8.zip |
file-get-lines: missing mode-opt parameter.
* stdlib/getput.tl (file-get-lines): A mode-opt parameter is
documented for this function; it is now actually implemented.
Diffstat (limited to 'stdlib')
-rw-r--r-- | stdlib/getput.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/getput.tl b/stdlib/getput.tl index d9717593..e90f3b28 100644 --- a/stdlib/getput.tl +++ b/stdlib/getput.tl @@ -86,8 +86,8 @@ (with-stream (s (open-file name `a@mopt`)) (put-string string s))) -(defun file-get-lines (name) - (get-lines (open-file name))) +(defun file-get-lines (name : mopt) + (get-lines (open-file name `r@mopt`))) (defun file-put-lines (name lines : mopt) (with-stream (s (open-file name `w@mopt`)) |