(use chicken-syntax vandusen)

(when (null? (command-line-arguments))
  (with-output-to-port (current-error-port)
    (cut print "error: no config file given" ))
  (exit 1))

(start (car (command-line-arguments)))
(print "exit")