- (let ((opts (getopt-long args '((daemon (single-char #\d) (value #f))
- (server (single-char #\s) (value #t))))))
-
+ (let ((opts (getopt-long args '((nodaemon (single-char #\d) (value #f))
+ (server (single-char #\s) (value #t))
+ (quiet (single-char #\q) (value #f))))))
+ (if (option-ref opts 'quiet #f) (set! logdest #f))