Data commit

Task/Read-entire-file/Scheme/read-entire-file-1.ss

@@ -0,0 +1,8 @@
+(with-input-from-file "foo.txt"
+  (lambda ()
+    (reverse-list->string
+     (let loop ((char (read-char))
+                (result '()))
+       (if (eof-object? char)
+           result
+           (loop (read-char) (cons char result)))))))

Task/Read-entire-file/Scheme/read-entire-file-2.ss

@@ -0,0 +1 @@
+(with-input-from-file "foo.txt" read-string)

Task/Read-entire-file/Scheme/read-entire-file-3.ss

@@ -0,0 +1,2 @@
+(use-modules (ice-9 textual-ports))
+(call-with-input-file "foo.txt" get-string-all)