 (require 'font-lock)
 (require 'comint)
 (require 'view)
+(require 'ring)
 
 ;;; Customization:
 

  (factor--with-vocab vocab
    (factor--listener-send-cmd cmd)))

;;;;; Interface: see

(defconst factor--regex-error-marker "^Type :help for debugging")
(defconst factor--regex-data-stack "^--- Data stack:")

(defface factor-font-lock-help-mode-headlines '((t (:bold t :weight bold)))
  "Face for headlines in help buffers."
  :group 'factor-faces)


;;; Compatibility
(when (not (fboundp 'ring-member))
  (defun ring-member (ring item)
    (catch 'found
      (dotimes (ind (ring-length ring) nil)
        (when (equal item (ring-ref ring ind))
          (throw 'found ind))))))


