     ("\\<[0-9_]+\\>" . font-lock-constant-face) ; integers
     (,slate-globals-regexp
      . font-lock-builtin-face)          ; globals
-;;     (,(concat "\\<" slate-binop-regexp "\\>")
-;;      . font-lock-string-face)        ; binary message send
+    (,(concat "\\<" slate-binop-regexp "\\>")
+     . font-lock-string-face)        ; binary message send
    )
   "Slate highlighting matchers.")
 

  (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


(defvar slate-interactor-mode-map
  (let ((map (copy-keymap slate-mode-map)))
    (dolist
        (l '(("\C-m"      . 'comint-send-input)
             ("\C-c\C-d"  . comint-delchar-or-maybe-eof)
             ("\C-c\C-u"  . comint-kill-input)
             ("\C-c\C-c"  . comint-interrupt-subjob)
             ("\C-c\C-z"  . comint-stop-subjob)
             ("\C-c\C-\\" . comint-quit-subjob)
             ("\C-c\C-o"  . comint-kill-output)
             ("\C-c\C-r"  . comint-show-output)))
      (define-key map (car l) (cdr l)))
    map)
  "Keymap for controlling the Slate listener")

