diff --git a/src/Makefile b/src/Makefile index 23cac43..c293aaa 100644 --- a/src/Makefile +++ b/src/Makefile @@ -50,7 +50,7 @@ HACKERBASE-OBJS=hackerbase.o testing.o listing.o cal-month.o \ util-string.o util-io.o util-list.o util-parser.o texts.o \ tests.o util-proc.o util-mail.o notifications.o \ util-format.o brmember-format.o logging.o specification.o \ - util-git.o cal-day.o + util-git.o cal-day.o util-stdout.o .PHONY: imports imports: $(HACKERBASE-DEPS) @@ -372,3 +372,8 @@ CAL-DAY-SOURCES=cal-day.scm util-tag.import.scm cal-month.import.scm \ cal-day.o: cal-day.import.scm cal-day.import.scm: $(CAL-DAY-SOURCES) + +UTIL-STDOUT-SOURCES=util-stdout.scm + +util-stdout.o: util-stdout.import.scm +util-stdout.import.scm: $(UTIL-STDOUT-SOURCES) diff --git a/src/util-stdout.scm b/src/util-stdout.scm index a9ad065..755847f 100644 --- a/src/util-stdout.scm +++ b/src/util-stdout.scm @@ -30,6 +30,7 @@ ( *stdout-quiet* stdout-print + stdout-printf ) (import scheme @@ -40,7 +41,12 @@ (define *stdout-quiet* (make-parameter #f)) ;; Prints to stdout if not quiet - (define (stdout-print fmt . args) + (define (stdout-print . args) + (when (not (*stdout-quiet*)) + (apply print args))) + + ;; Prints formatted string to stdout if not quiet + (define (stdout-printf fmt . args) (when (not (*stdout-quiet*)) (print (apply format fmt args))))