       "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"

      "list" "list*" "tuple" "binary"
      "map" "mref" "mset" "mupd" "map-get" "map-set" "map-update")
    "LFE builtin functions (BIFs) and some type macros")
  (defconst lfe-basic-forms
    '(
      ;; Core forms.
      "after" "call" "case" "catch" "define-function" "define-macro"

      "\\(\\sw+\\)?")
     '(1 font-lock-keyword-face)
     '(3 font-lock-type-face nil t)))
  "LFE old type definition forms.")

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