-(define (logf msg)
- (write-line msg (current-output-port))
- (catch 'system-error (lambda ()
- (fsync (current-output-port)))
- (lambda (key . err) #f))
+(define (logf fmt . msg)
+ (if logport
+ (begin
+ (apply format (cons* logport (string-append fmt "\n") msg))
+ (catch 'system-error (lambda ()
+ (fsync logport))
+ (lambda (key . err) #f))))
+ )
+
+(define (infomsg fmt . msg)
+ (if infoport
+ (begin
+ (apply format (cons* infoport (string-append fmt "\n") msg))
+ (catch 'system-error (lambda ()
+ (fsync infoport))
+ (lambda (key . err) #f))))