 ;;; Font lock:
 
 (defconst factor-font-lock-keywords
-  `((,factor-stack-effect-regex . 'factor-font-lock-stack-effect)
-    (,factor-brace-words-regex 1 'factor-font-lock-parsing-word)
-    (,factor-alien-function-regex (1 'factor-font-lock-type-name)
-                                  (2 'factor-font-lock-word))
+  `((,factor-brace-words-regex 1 'factor-font-lock-parsing-word)
     (,factor-alien-function-alias-regex (1 'factor-font-lock-word)
                                         (2 'factor-font-lock-type-name)
                                         (3 'factor-font-lock-word))

    "CONSULT:" "call-next-method"
    "DEFER:" "DESTRUCTOR:"
    "EBNF:" ";EBNF" "ENUM:" "ERROR:" "EXCLUDE:"
    "FORGET:" "FROM:" "FUNCTION:" "FUNCTION-ALIAS:"
    "GAME:" "GENERIC#" "GENERIC:"
    "GLSL-SHADER:" "GLSL-PROGRAM:"
    "HELP:" "HINTS:" "HOOK:"


(defsubst factor-beginning-of-sexp-pos ()
  (save-excursion (factor-beginning-of-sexp) (point)))

(defun factor-find-end-of-def (&rest foo)
  (save-excursion
    (re-search-forward " ;" nil t)
    (1- (point))))


