Remove redundant comments.

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

View file

@ -41,27 +41,23 @@
(chicken base)
(chicken format))
;; If true, all stdout output is suppresed
(define/doc *stdout-quiet*
("A boolean parameter which disables all output from procedures in this
module if its value is ```#t```.")
quiet
(make-parameter #f))
;; Prints to stdout if not quiet
(define/doc (stdout-print . args)
("If not quiet, passes ```args``` to ```print```.")
(when (not (*stdout-quiet*))
(apply print args)))
;; Prints formatted string to stdout if not quiet
(define/doc (stdout-printf fmt . args)
("If not quiet, prints formatted string ```fmt``` by applying ```args```
to ```format``` procedure.")
(when (not (*stdout-quiet*))
(print (apply format fmt args))))
;; Prints newline if not quiet
(define/doc (stdout-newline)
("If not quiet, calls ```(newline)```.")
(when (not (*stdout-quiet*))