      '(1 font-lock-keyword-face)
      '(3 font-lock-function-name-face nil t))
     )
-  "LFE old style function expressions")
+  "LFE basic function definition expressions")
 
 (defconst lfe-font-lock-new-type-keywords
   (eval-when-compile

  (eval-when-compile
    (list lfe-font-lock-new-type-keywords
	  lfe-font-lock-new-function-keywords
	  lfe-font-lock-old-type-keywords
	  lfe-font-lock-old-function-keywords
	  lfe-font-lock-flavor-keywords
	  ))
  "Subdued expressions to highlight in LFE modes.")


;;; Font locking

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