brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove redundant comments.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-05 22:12:07 +02:00
parent a2c312741b
commit ae5c8e1301
5 changed files with 2 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/util-io.scm
View file

@ -52,8 +52,6 @@
(substring str 3)
str))))
;; Reads lines from given input port, discarding BOM at the beginning
;; of the first line if there is any.
(define/doc (read-lines/no-bom ip)
("
* ```port``` - an input port
@ -67,8 +65,6 @@ UTF-8 BOM, removes it.
(cons (remove-optional-bom (car lines))
(cdr lines)))))
;; Very simple shell command wrapper that returns lines produced by
;; given command.
(define/doc (get-process-output-lines cmd . args)
("
* ```cmd``` - a string with the command
@ -87,8 +83,6 @@ running the command given.
(let-values (((pid exit-ok? exit/signal) (process-wait pid)))
result))))
;; Very simple shell command wrapper that returns lines produced by
;; given command.
(define/doc (get-process-exit+output-lines cmd . args)
("
* ```cmd``` - a string with the command
@ -107,8 +101,6 @@ all the lines produced by running the command given.
(let-values (((pid exit-ok? exit/signal) (process-wait pid)))
(values exit/signal result)))))
;; Invokes given command with given arguments, gives it all input
;; lines and returns the output lines.
(define/doc (process-send/recv cmd args . lines)
("
* ```cmd``` - a string with command