                       (inc offset) line (inc col)
                       (pop parents)
                        accumulated-state)
-                  (= (first "\r") c)
+                  (= \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)
                    (= \\ c)
                    :else
                      (recur (inc offset) line (inc col) parents accumulated-state)))))))))
	          
(comment
(defn parse-lib 

                      (recur (inc offset) (inc line) (int 0) (pop parents) accumulated-state)
                    :else
                      (recur (inc offset) line (inc col) parents accumulated-state))
                \space
                  (cond 
                    (= \newline c)
                      (recur (inc offset) (inc line) (int 0) parents accumulated-state)
                    (= \return c)
                      (recur (inc offset) line col parents accumulated-state)
                    (*spaces* c) ; we know it's not a space related to line jump
                      (recur (inc offset) line (inc col) parents accumulated-state)
                    :else ; we know we're going out of spaces
                      (recur offset line col (pop parents) accumulated-state))
                \\
                  (cond   ; leaved as a template if new cases have to be handled
                    ; TODO refactor the following stuff. or keep for performance ? (bleh)
                    (start-like (.substring text (-> parents peek :offset)) "\\newline")
                      (if (< (inc (- offset (-> parents peek :offset))) (.length "\\newline"))
