                                         (3 'factor-font-lock-word))
     (,factor-alien-callback-regex (1 'factor-font-lock-type-name)
                                   (2 'factor-font-lock-word))
-    (,factor-vocab-ref-regexp 2 'factor-font-lock-vocabulary-name)
+    (,factor-vocab-ref-regex 2 'factor-font-lock-vocabulary-name)
+
+    (,factor-using-lines-regex (1 'factor-font-lock-parsing-word)
+                               (2 'factor-font-lock-vocabulary-name))
+
     (,factor-constructor-decl-regex
      (1 'factor-font-lock-word)
      (2 'factor-font-lock-type-name)

  (save-excursion
    (beginning-of-line)
    (re-search-forward factor-constructor-regex (line-end-position) t)))

(defsubst factor-at-using ()
  (looking-at factor-using-lines-regex))

(defun factor-in-using ()
  (let ((p (point)))

                "POSTPONE:" "PRIVATE>" "<PRIVATE"
                "QUALIFIED-WITH:" "QUALIFIED:"
                "RENAME:"
                "SINGLETON:" "SLOT:" "SPECIALIZED-ARRAY:"
                "TYPEDEF:"
                "USE:")))

(defconst factor-begin-of-def-regex
  (format "^USING: \\|\\(%s\\)\\|\\(^%s .*\\)"
