                              '(2 'factor-font-lock-parsing-word)))
               factor--parsing-words)
     (,factor--regex-parsing-words-ext . 'factor-font-lock-parsing-word)
+    (,factor--regex-declaration-words 1 'factor-font-lock-declaration)
     (,factor--regex-word-definition 2 'factor-font-lock-word-definition)
     (,factor--regex-type-definition 2 'factor-font-lock-type-definition)
     (,factor--regex-parent-type 1 'factor-font-lock-type-definition)

                              "PRIVATE>" "<PRIVATE" "SYMBOL:" "USE:"))))

(defsubst factor--at-begin-of-def ()
  (looking-at factor--regexp-word-start))

(defsubst factor--looking-at-emptiness ()
  (looking-at "^[ \t]*$"))

(defun factor--at-end-of-def ()
  (or (looking-at ".*;[ \t]*$")
      (looking-at factor--regex-single-liner)))

(defun factor--at-setter-line ()

;; Factor mode:
(defvar factor-mode-map (make-sparse-keymap)
  "Key map used by Factor mode.")

(defsubst factor--beginning-of-defun (times)
  (re-search-backward factor--regex-definition-start nil t times))

(defsubst factor--end-of-defun ()
  (re-search-forward factor--regex-definition-end nil t))

;;;###autoload
(defun factor-mode ()
