andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Timothy Sample 2023-08-12 14:26:04 -06:00
parent 674ded5766
commit 334aa0c0ff
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gash/compat.scm
View File

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