anchor.diff:                     (push-cdr! buffer char)])
                   (consume!)
                   (set! char (string/char-at str offset)))
  -              (append-with! {:tag "string" :value (concat buffer)} start)))
  +              (append-with! {:tag "string" :value (concat buffer)} start))]
             [(= char ";")
              (while (and (<= offset length) (/= (string/char-at str (succ offset)) "\n"))
                (consume!))]
  
positive.code:   ;; Attempt to "normalise" strings
    (set! str (string/gsub str "\r\n?" "\n"))
  
    (let* ((lines (string/split str "\n"))
           (line 1)
           (column 1)
           (offset 1)
  
negative.code:                  (.<! head :last-node nil)
  
                   (set! head (last stack))
                   (pop-last! stack)))]
      (for-each tok toks
        (let* ((tag (.> tok :tag))
               (auto-close false))
  