Remove redundant comments.
This commit is contained in:
parent
a2c312741b
commit
ae5c8e1301
5 changed files with 2 additions and 23 deletions
|
@ -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*))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue