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

Change string/last

Browse Source 
Changes `string/last` to return `:ignore-instruction` if the given string is empty
This commit is contained in:
Erik Rauer 2021-03-23 22:42:49 -05:00
parent acdc225c71
commit 7aad934b96
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/propeller/push/instructions/string.cljc
View File

@ -136,12 +136,13 @@
(state/push-to-stack :exec (state/peek-stack state :exec))
(state/push-to-stack :char (first top-item))))))))
;; Pushes the last CHAR of the top STRING
;; Pushes the last CHAR of the top STRING.
;; If the string is empty, do nothing
(def-instruction
:string_last
^{:stacks #{:char :string}}
(fn [state]
(make-instruction state last [:string] :char)))
(make-instruction state #(if (empty? %) :ignore-instruction (last %)) [:string] :char)))
;; Pushes the length of the top STRING onto the INTEGER stack
(def-instruction