       "is_function" "is_integer" "is_list" "is_map" "is_number" "is_pid"
       "is_port" "is_record" "is_reference" "is_tuple")
     "LFE type tests")
-  (defconst lfe-type-bifs
+  (defconst lfe-type-forms
     '("abs" "bit_size" "byte_size" "element" "float"
       "hd" "iolist_size" "length" "make_ref" "setelement" ;"size"
       "round" "tl" "trunc" "tuple_size"

      "let" "let-function" "letrec-function" "let-macro"
      "match-lambda" "progn" "receive" "try" "when"
      "eval-when-compile" "extend-module"
      ;; Base macro forms.
      "andalso" "bc" "binary-comp" "cond" "do" "flet" "flet*" "fletrec"
      "fun" "lc" "list-comp"
      "let*" "match-spec" "macrolet" "orelse" "qlc"

           lfe-font-lock-keywords-1 lfe-font-lock-keywords-2)
          nil nil (("+-*/.<>=!?$%_&~^:@" . "w")) beginning-of-defun
          (font-lock-mark-block-function . mark-defun)
          (font-lock-syntactic-face-function
           . lisp-font-lock-syntactic-face-function)))
  ;; Don't use seq-local here for backwards compatibility.
  (make-local-variable 'prettify-symbols-alist)
  (setq prettify-symbols-alist lfe--prettify-symbols-alist))

;;; Font locking

(defconst lfe-font-lock-old-type-keywords
  (eval-when-compile
    (list
     (concat
