 
 (declare lex* string->ast ast->groups)
 
-(defn start-of-new-token? [^String s ^Integer i]  
+(defn start-of-new-token? [s i]
   (let [c (.charAt s i)
         nc (try
              (.charAt s (inc i))

(defn render-file [filename context]
  (-> filename
      load-template
      (render context)))

        (and (= c \})
             (= nc \})))))

(defn buffer-string [s fileref i max offset line]
  (let [sb (StringBuffer.)]
    (loop [ni i]
      (if (or (>= ni max)
