Fix vector/_replacefirst

This changes the function to throw `:ignore-instruction` if the replacement value is not present in the vector.
2021-01-03 18:31:12 -06:00 · 2021-01-03 18:31:12 -06:00 · d5f115f81c
commit d5f115f81c
parent bcddca184c
1 changed files with 4 additions and 1 deletions
--- a/src/propeller/push/instructions/vector.cljc
+++ b/src/propeller/push/instructions/vector.cljc
@ -183,7 +183,10 @@
    (let [lit-stack (get-vector-literal-type stack)]
      (make-instruction state
                        (fn [lit1 lit2 vect]
-                          (assoc vect (utils/indexof lit1 vect) lit2))
+                          (let [replaceindex (utils/indexof lit1 vect)]
+                            (if (= replaceindex -1)
+                              :ignore-instruction
+                              (assoc vect replaceindex lit2))))
                        [lit-stack lit-stack stack]
                        stack))))