From 334aa0c0ffe6b10afaa7e0d6da147900bcc7acd2 Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Sat, 12 Aug 2023 14:26:04 -0600
Subject: [PATCH] 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 | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/gash/compat.scm b/gash/compat.scm
index 40830e3..7d067bd 100644
--- a/gash/compat.scm
+++ b/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)