added oprintf

This commit is contained in:
Robby Findler 2010-12-14 10:30:34 -06:00
parent 3622a68449
commit 5adaedae8e

View File

@ -48,6 +48,7 @@ If the namespace does not, they are colored the unbound color.
(provide tool@)
(define o (current-output-port))
(define (oprintf . args) (apply fprintf o args))
(define status-init (string-constant cs-status-init))
(define status-coloring-program (string-constant cs-status-coloring-program))