        ;;   (put 'xyzzy 'arc-indent-function 'quux)
        '((1 unless case with withs when awhen accum fn afn
             w/uniq w/stdout w/appendfile w/stdin w/infile)
-         (2 w/infile whilet each on def mac defset defcall redef rfn let))))
+         (2 w/infile whilet each on def mac defset defcall redef rfn let ret mapeach))))
   (dolist (entry arc-indent-function-list)
     (destructuring-bind (level . syms) entry
       (dolist (sym syms)

             '(; define/assign-type forms
               "++" "--" "=" "assign" "or=" "set" "wipe" "zap"
               "def" "mac" "defs"
               "defcache" "defhook" "defmemo" "defop" "defset" "deftem"
               ; lambdas & binding forms
               "fn" "rfn" "afn"
               "let" "with" "withs"

     ;; Declarations.
     (list 
      (concat "(" (regexp-opt 
                   '("def" "mac" "defop" "defpath" "defmemo" "defset" "deftem" "defcall" "redef" "set" "=")
                   t)
              "\\>"
              ;; Any whitespace and declared object.
