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

Fix handling of boolean input values

Browse Source
This commit is contained in:
Lee Spector 2020-12-08 12:20:26 -05:00
parent 7a16770cb9
commit aed8eb8a76
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/propeller/push/instructions/input_output.cljc
View File

@ -12,16 +12,16 @@
;; ============================================================================= ;; =============================================================================
;; Allows Push to handle input instructions of the form :inN, e.g. :in2, taking ;; Allows Push to handle input instructions of the form :inN, e.g. :in2, taking
;; elements thus labeled from the :input stack and pushing them onto the :exec ;; elements thus labeled from the :input map and pushing them onto the :exec
;; stack. We can tell whether a particular inN instruction is valid if N-1 ;; stack.
;; values are on the input stack.
(defn handle-input-instruction (defn handle-input-instruction
[state instruction] [state instruction]
(if-let [input (instruction (:input state))] (if (contains? (:input state) instruction)
(state/push-to-stack state :exec input) (let [input (instruction (:input state))]
(throw #?(:clj (Exception. (str "Undefined input instruction " instruction)) (state/push-to-stack state :exec input))
(throw #?(:clj (Exception. (str "Undefined instruction " instruction))
:cljs (js/Error :cljs (js/Error
(str "Undefined input instruction " instruction)))))) (str "Undefined instruction " instruction))))))
;; ============================================================================= ;; =============================================================================
;; OUTPUT Instructions ;; OUTPUT Instructions