       "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
+  (defconst lfe-core-forms
     '(
       ;; Core forms.
       "after" "call" "case" "catch" "define-function" "define-macro"

           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-basic-type-keywords
  (eval-when-compile
    (list
     (concat

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

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