compat: Remove stuff that is now in Mes.

* gash/compat.scm [mes] (string-concatenate-reverse): Remove
procedure.
[mes] (call-with-input-file): Remove procedure.
[mes] (call-with-input-string): Remove procedure.

gash/compat.scm

@@ -87,7 +87,6 @@
           parameterize
           set-port-line!
           string-for-each
-          string-concatenate-reverse
           string-every
           string-any
           the-eof-object
@@ -103,8 +102,6 @@
           file-port?
           input-port?
           output-port?
-          call-with-input-file
-          call-with-input-string
           thunk?
           EXIT_SUCCESS
           EXIT_FAILURE
@@ -141,9 +138,6 @@
   (define (set-port-line! port line)
     #f)
 
-  (define (string-concatenate-reverse lst)
-    (apply string-append (reverse lst)))
-
   (define (char-pred pred)
     (cond
      ((char? pred) (lambda (x) (char=? x pred)))
@@ -226,20 +220,6 @@
   (define (input-port? port) #f)
   (define (output-port? port) #f)
 
-  (define (call-with-input-file file proc)
-    (let ((port (open-input-file file)))
-      (call-with-values (lambda () (proc port))
-        (lambda results
-          (close-port port)
-          (apply values results)))))
-
-  (define (call-with-input-string str proc)
-    (let ((port (open-input-string str)))
-      (call-with-values (lambda () (proc port))
-        (lambda results
-          (close-port port)
-          (apply values results)))))
-
   ;; Fix 'dup' interface.
   (let ((mes/dup dup))
     (define* (guile/dup fd #:optional new)