summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2022-06-29 06:25:22 -0700
committerKaz Kylheku <kaz@kylheku.com>2022-06-29 06:25:22 -0700
commite9e2e3eab9fa5fae02f7f82b56e43ddb162fc7e8 (patch)
tree2898c89db8dd1da71de933000ecd86532e1a3349 /stdlib
parenta005758be5966320890e057ce35ee5ecfb905c15 (diff)
downloadtxr-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.tl4
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`))