 
 ;;; Font locking
 
-(defconst lfe-font-lock-old-type-keywords
+(defconst lfe-font-lock-basic-type-keywords
   (eval-when-compile
     (list
      (concat

     '(1 font-lock-keyword-face)
     '(3 font-lock-function-name-face nil t))
    )
  "LFE old style function expressions")

(defconst lfe-font-lock-new-type-keywords
  (eval-when-compile

     '(1 font-lock-keyword-face)
     '(3 font-lock-type-face nil t))
    )
  "LFE basic type definition expressions")

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