move the deletion into the "do afterwards" part

should have been a part of addb2c9

Author: rfindler

gui-lib/framework/private/text-normalize-paste.rkt

@@ -105,12 +105,13 @@
                         (set! ask? #f)
                         (unless (ask-normalize?) (abort)))
                       (define snip-pos (get-snip-position snip))
-                      (delete snip-pos (+ snip-pos (string-length old)))
                       (set! changes-to-make
-                            (cons (λ () (insert new snip-pos snip-pos #f))
+                            (cons (λ ()
+                                    (delete snip-pos (+ snip-pos (string-length old)))
+                                    (insert new snip-pos snip-pos #f))
                                   changes-to-make))))
                   (loop prev-snip))))
-            (for ([change (in-list changes-to-make)])
+            (for ([change (in-list (reverse changes-to-make))])
               (change)))))
 
       (super-new))))