X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=stdlib%2Fprelude.gl;h=5d072eac93c67f8d4b672803407852b01a0e1f0a;hb=915b9bff547705bf9df287ffb2a057eeaec4ca02;hp=e2d04007c1b895958ccb884fed40ba18da972f86;hpb=580298444204f92785a7ac78c4529e95e3cba40d;p=goals.git

diff --git a/stdlib/prelude.gl b/stdlib/prelude.gl
index e2d0400..5d072ea 100644
--- a/stdlib/prelude.gl
+++ b/stdlib/prelude.gl
@@ -107,6 +107,16 @@ pure function extension (name) returning string = @{
     echo "${name##*.}"
 }
 
+# Read a file.
+function read (filename) returning string = @{
+    cat %filename
+}
+
+# Read a file as a list of lines.
+function readlines (filename) returning strings = @{
+    cat %filename
+}
+
 # Real path.
 function realpath (filename) returning string = @{
     realpath -- %filename