Fix vector/_replacefirst tests

This fixes the `vector/_replacefirst` tests to be consistent with the changes made to `vector/_replacefirst` in the previous commit.
This commit is contained in:
Erik Rauer 2021-01-07 14:27:14 -06:00
parent beed85b5c0
commit 39626a1764

View File

@ -331,7 +331,7 @@
replacement-index (.indexOf vect toreplace)] replacement-index (.indexOf vect toreplace)]
(or (or
(and (= replacement-index -1) (and (= replacement-index -1)
(= [replacement toreplace] (state/peek-stack-many end-state value-stack 2)) (state/empty-stack? end-state value-stack)
(= vect end-vector)) (= vect end-vector))
(and (state/empty-stack? end-state value-stack) (and (state/empty-stack? end-state value-stack)
(= end-vector (assoc vect replacement-index replacement)))))) (= end-vector (assoc vect replacement-index replacement))))))