 	            continue? (continue?-fn text offset line col parents parser-state accumulated-state)] 
   	      (if (or (not continue?) (= :eof parser-state))
   	        (make-result-fn text offset line col parents parser-state accumulated-state)
-  	        (let [c (.charAt text offset)] ; c: current char
-  	          (condp = (-> parents peek :type)
+  	        (let [c (.charAt text offset)
+  	              parent-type (-> parents peek :type)] ; c: current char
+  	          (condp = parent-type
   	            \" 
                   (cond
                     (= \newline c)

                    (= \" c)
                    (= \; c)
                    (= \\ c)
                    :else
                      (recur (inc offset) line (inc col) parents accumulated-state))
                      )))))))

                  (*opening-brackets* c)
                    (recur 
                      (inc offset) line (inc col)
                      (conj (if (= \a parent-type) (pop parents) parents) {:type c :offset offset :line line :col col})
                       accumulated-state)
                  (*closing-brackets* c)
                    (recur 
                      (inc offset) line (inc col)
                      (pop (if (= \a parent-type) (pop parents) parents))
                       accumulated-state)
                  #_(= \return c)
                    #_(recur (inc offset) line col parents accumulated-state) ; we do not increment the column    
                  #_(= \newline c)
                    #_(recur (inc offset) (inc line) (int 0) parents accumulated-state)
                  (= \" c)
                    (recur (inc offset) line (inc col) (conj (if (= \a parent-type) (pop parents) parents) {:type c :offset offset :line line :col col }) accumulated-state)
                  (= \; c)
                    (recur (inc offset) line (inc col) (conj (if (= \a parent-type) (pop parents) parents) {:type c :offset offset :line line :col col}) accumulated-state)
                  (= \\ c)
                    (recur (inc offset) line (inc col) (conj (if (= \a parent-type) (pop parents) parents) {:type c :offset offset :line line :col col}) accumulated-state)
                  (*spaces* c)
                    (recur offset line col (conj (if (= \a parent-type) (pop parents) parents) {:type \space :offset offset :line line :col col}) accumulated-state)
                  :else
                    (recur (inc offset) line (inc col) 
                      (if (= \a parent-type) parents (conj parents {:type \a :offset offset :line line :col col}))
                      accumulated-state)) ; \a comme atom
                  
                  #_(cond   ; leaved as a template if new cases have to be handled
                    (*opening-brackets* c)
