anchor.diff:                  arguments
                 (if (null? arguments)
                     (slice $main-args 2)
  -                '())))))
  +                '()))))
  +         (print-help (lambda () (println *help*) (exit))))
       (if (option-list? arguments)
           arguments
         (let ((i 0) (option-arg-encountered nil))
  
positive.code:                 ("--indent-commens" (setq (options [indent-comments]) true))
                  ("--no-warning" (setq (options [warning]) nil))
                  ("--nw" (setq (options [warning]) nil))
                  ))))
          options))))
  
  (define (print-args arg)
    (let (arg-list (parse-args arg))
  
negative.code: 
  (define (indent-files arguments)
    (letn ((opts (parse-args arguments)))
      (when (not (opts [files]))
        ;; Indent from stdin
        (letn ((line (read-line))
               (code ""))
          (while line
            (setq code (append code (string line "\n")))
            (setq line (read-line)))
          (setq indented-code (indent-code code))
          (after-indentation indented-code)))
      (dolist (fpath (opts [files]))
        (unless (empty? fpath)
          (letn ((fname (real-path fpath))
  