   (gerbil-fontlock-add
    '("\\_<\\(\\sw+:\\)\\_>"
      (1 font-lock-builtin-face)))
-  (gerbil-fontlock-add
-   '("\\([_#]\\)"
-     (1 font-lock-builtin-face)))
-  (gerbil-fontlock-add
-   '("\\<\\(#[tf]\\|#!\\w+\\)"
-     (1 font-lock-builtin-face)))
+
   (gerbil-fontlock-add
    '("\\<\\(<>\\|<\\.\\.\\.>\\>\\)"
      (1 font-lock-builtin-face)))
 
-  (gerbil-fontlock-add
-   '("\\_<\\([?!]\\)"
-     (1 font-lock-builtin-face)))
   (gerbil-fontlock-add
    '("\\_<\\([.][.][.]\\)"
      (1 font-lock-builtin-face)))

   '("(\\(defregister\\|defvar\\|defconst\\)\\s-+\\(\\sw+\\)"
     (1 font-lock-keyword-face)
     (2 font-lock-variable-name-face)))
  (gerbil-fontlock-add
   '("\\([()]\\)"
     (1 paren-face)))

                       "let-registers"
                       "spawn" "try" "while"
                       "continue" "yield" "coroutine"
                       "<-" "<<" "->"
                       )
                     t)
     "\\>")
