Implemented #contents on File using minimal primitive calls.

diff --git a/src/core/file.slate b/src/core/file.slate
index 40cbf4a..e214501 100644 (file)
--- a/src/core/file.slate
+++ b/src/core/file.slate
@@ -599,6 +599,16 @@ file."
   s
 ].
 
+f@(File traits) contents
+[
+  f sessionDo: [| :in size result |
+    size: f size.
+    result: (String newSize: size).
+    (in read: size into: result).
+    result
+  ]
+].
+
 fs@(File Stream traits) file
 [fs resource].