buy/hold keyword exec stack handling
This commit is contained in:
parent
617b03aeb6
commit
616b33fe20
@ -11,6 +11,11 @@
|
|||||||
instruction (first (:exec state))
|
instruction (first (:exec state))
|
||||||
literal-type (instructions/get-literal-type instruction)] ; nil for non-literals
|
literal-type (instructions/get-literal-type instruction)] ; nil for non-literals
|
||||||
(cond
|
(cond
|
||||||
|
;;
|
||||||
|
;; Catch the trading signal keywords before the other
|
||||||
|
;; keyword checks.
|
||||||
|
(some #(= instruction %) '(:buy :sell :hold))
|
||||||
|
(state/push-to-stack popped-state :signal instruction)
|
||||||
;;
|
;;
|
||||||
;; Recognize functional instruction or input instruction
|
;; Recognize functional instruction or input instruction
|
||||||
(keyword? instruction)
|
(keyword? instruction)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user