From c2b290f74e8ab40aed178f8eacd41e34e0b2e332 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 29 Jun 2022 06:25:22 -0700 Subject: 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. --- stdlib/getput.tl | 4 ++-- 1 file 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`)) -- cgit v1.2.3