       (3 'factor-font-lock-stack-effect nil t)))
 
     ;; Almost identical to the previous one, but for function aliases.
-    (,(format "\\(FUNCTION-ALIAS\\):[ \n]+%s[ \n]+%s[ \n]+%s[ \n]+"
-              symbol symbol symbol)
+    (,factor-function-alias-regex
      (1 'factor-font-lock-parsing-word)
      (2 'factor-font-lock-word)
      (3 'factor-font-lock-type-name)

  (regexp-opt factor-constant-words 'symbols))

(defconst factor-bracer-words
  '("B" "BV" "C" "CS" "H" "HS" "T" "V" "W"))

(defconst factor-brace-words-regex
  (format "%s{" (regexp-opt factor-bracer-words t)))

    "B"
    "COLOR:"
    "CONSULT:" "call-next-method"
    "EBNF:" ";EBNF"
    "FOREIGN-ATOMIC-TYPE:" "FOREIGN-ENUM-TYPE:" "FOREIGN-RECORD-TYPE:" "FUNCTION-ALIAS:"
    "GIR:"
    "GLSL-SHADER:" "GLSL-PROGRAM:"
    "HINTS:"
    "initial:" "INTERSECTION:" "IMPLEMENT-STRUCTS:"
    "MATH:"
    "METHOD:"
    "PRIVATE>" "PROTOCOL:" "PROVIDE:"
    "read-only" "REQUIRE:"  "REQUIRES:"
    "SLOT:"
    "SPECIALIZED-ARRAYS:" "STRING:" "SYNTAX:"
    "UNIFORM-TUPLE:"
    "VARIANT:" "VERTEX-FORMAT:"))

