   (reset! depth d))
 
 (defn reject [change]
-  (println "rejecting change: unbalanced parens")
+  (println "rejecting change: unbalanced parentheses")
   (.cancel change))
 
 (defn get-next-depth

  (and (multi-opener? c)
       (multi-second? next)))

(declare ;; see comments in spar.macros to learn what these are:
 ;; 'classifiers' 'peekers' and 'steppers'.

 peek-code

  ([s]        (parse s peek-default))
  ([s peeker] (parse s peeker "" [] 0))
  ([s peeker code depth next-depth]
   (trampoline peeker code depth next-depth s)))

(def plain-typing-mode (atom true))
