anchor.diff:  
   (define (detabify text options)
     (letn ((opts (parse-args options)))
  -  (if (< (opts [tab-width]) 1)
  -      (expand-tabs text 4)
  -    (expand-tabs text (opts [tab-width])))))
  +    (if (< (opts [tab-width]) 1)
  +        (expand-tabs text 4)
  +      (expand-tabs text (opts [tab-width])))))
   
   
   (define (tabify text options)
  
positive.code:   (set 'keyword-list (assign-indent-numbers two-armed keyword-list KEYWORD2))
    (set 'keyword-list (assign-indent-numbers local-binders keyword-list KEYWORD4))
    (when (opts [read-rc])
     (set 'keyword-list (assign-indent-numbers
                         (lookup dialect (parse-rc-json)) keyword-list nil)))
    keyword-list)
  
  ;; ---------------------------------------------------------------------------------
  
negative.code:          (path (or (real-path fname)
                     (real-path (string home *os-sep* fname))""))
           (contents (or (read-file path) "")))
      (or (json-parse contents) '())))
  
  (define (assign-indent-numbers lst assoc-list inum)
    " Builds an associative list with keys as keywords and values as their indentation
  