Finish stdout util and bump dev version.
This commit is contained in:
parent
7a19204242
commit
5fed8899a4
4 changed files with 14 additions and 8 deletions
|
@ -31,6 +31,7 @@
|
|||
*stdout-quiet*
|
||||
stdout-print
|
||||
stdout-printf
|
||||
stdout-newline
|
||||
)
|
||||
|
||||
(import scheme
|
||||
|
@ -50,4 +51,9 @@
|
|||
(when (not (*stdout-quiet*))
|
||||
(print (apply format fmt args))))
|
||||
|
||||
;; Prints newline if not quiet
|
||||
(define (stdout-newline)
|
||||
(when (not (*stdout-quiet*))
|
||||
(newline)))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue