anchor.diff:  
   (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)))
  +    (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))
  
positive.code:                 arguments
                (if (null? arguments)
                    (slice $main-args 2)
                  '())))))
      (if (option-list? arguments)
          arguments
        (let ((i 0) (option-arg-encountered nil))
  
negative.code:                   (if (= 1 (length lst))
                        ;; No characters after the equal sign (no dialect specified)
                        (setq (options [default-indent]) (to-int (indent-pair 1) 1))
                      (setq (options [default-indent]) (to-int
                                                        (join (rest lst) "=") 1)))))
                (when (not (empty? (dialect-pair 0)) (empty? (dialect-pair 1)))
                  (let ((lst (parse (dialect-pair 0) "=")))
                    (if (= 1 (length lst))
  