Added read function with expand-home-dir.

lfex · Aug 16, 2023 · ff9d938 · ff9d938
1 parent 0ae9a17
commit ff9d938
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/lutil-file.lfe b/src/lutil-file.lfe
@@ -26,6 +26,11 @@
     (`#(ok ,dir) dir)
     (err err)))
 
+(defun read (filename)
+  (case (file:read_file (expand-home-dir filename))
+    (`#(ok ,bytes) bytes)
+    (err err)))
+
 (defun relative-dir (dir)
   "Get the absolute path to directory relative to the current working dir."
   (filename:join `(,(cwd) ,dir)))