      . font-lock-type-face)        ; traits name
     ("\\<[0-9_]+\\>" . font-lock-constant-face) ; integers
     (,slate-globals-regexp
-     . font-lock-keyword-face)        ; globals
+     . font-lock-builtin-face)        ; globals
     ;(,(concat "\\(" slate-binop-regexp "\\|" slate-name-regexp ":?\\)")
     ; . font-lock-function-name-face) ; method call
    )


(defconst slate-globals-regexp
  (regexp-opt '("lobby" "True" "False" "Nil" "NoRole" "thisContext"
        "resend" "clone" "here" "it") 'words))

(defconst slate-binop-chars "-+*/\\~;<>=&?"
  "The collection of characters that can compose a Slate binary selector.")

(defconst slate-binop-regexp
  (concat "\\([" slate-binop-chars "]\\{1,3\\}\\|||\\)" slate-name-regexp "\\([" slate-binop-chars "]\\{1,3\\}\\|||\\)")
  "A regular expression that matches a Slate binary selector")

(defconst slate-keyword-regexp
  (concat "\\([-" slate-name-chars "_][-" slate-name-chars "_:]*:\\| :[^A-Za-z]\\)")
  "A regular expression that matches a Slate keyword")

(defconst slate-opt-keyword-regexp (concat "&" slate-keyword-regexp)

    table)
  "Slate character types")

(defconst bold 'bold
  "Emacs requires this; ugly.")

