      '(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


;;; Font locking

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

      "funcall" "if" "lambda"
      "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"
