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

Fix string/set-char

Browse Source 
This changes `string/set-char` to throw `:ignore-instruction` when the string is empty. Otherwise the instruction throws a Divide by Zero error.
This commit is contained in:
Erik Rauer 2021-04-01 12:04:02 -05:00
parent 27bd7b6eb6
commit e3d7963355
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/string.cljc
View File

@ -268,10 +268,12 @@
^{:stacks #{:char :integer :string}} ^{:stacks #{:char :integer :string}}
(fn [state] (fn [state]
(make-instruction state (make-instruction state
#(let [index (mod %2 (count %3)) #(if (empty? %3)
:ignore-instruction
(let [index (mod %2 (count %3))
beginning (take index %3) beginning (take index %3)
end (drop (inc index) %3)] end (drop (inc index) %3)]
(apply str (concat beginning (list %1) end))) (apply str (concat beginning (list %1) end))))
[:char :integer :string] [:char :integer :string]
:string))) :string)))