rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix vector/_set

Browse Source 
This makes it so that `vector/_set` returns `:ignore-instruction` if the given vector is empty.
This commit is contained in:
Erik Rauer 2021-01-05 15:47:37 -06:00
parent 2ffffa9fd4
commit 7613f18c70
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/propeller/push/instructions/vector.cljc
View File

@ -211,8 +211,10 @@
(let [lit-stack (get-vector-literal-type stack)] (let [lit-stack (get-vector-literal-type stack)]
(make-instruction state (make-instruction state
(fn [lit n vect] (fn [lit n vect]
(assoc vect (mod n (count vect)) lit)) (if (empty? vect)
[:integer lit-stack stack] :ignore-instruction
(assoc vect (mod n (count vect)) lit)))
[lit-stack :integer stack]
stack)))) stack))))
;; Pushes a subvector of the top item, with start and end indices determined by ;; Pushes a subvector of the top item, with start and end indices determined by