recognize +! and set-vector (#706)

"
This commit is contained in:
water111
2021-07-17 15:00:10 -04:00
committed by GitHub
parent 1e90da8e7c
commit 4989470828
48 changed files with 557 additions and 1038 deletions
@@ -1090,17 +1090,11 @@
)
(set! (-> v1-2 color) (cond
((> (-> arg0 hilite-timer) 0)
(set!
(-> arg0 hilite-timer)
(+ (-> arg0 hilite-timer) -1)
)
(+! (-> arg0 hilite-timer) -1)
10
)
((< (-> arg0 hilite-timer) 0)
(set!
(-> arg0 hilite-timer)
(+ (-> arg0 hilite-timer) 1)
)
(+! (-> arg0 hilite-timer) 1)
14
)
((nonzero? arg3)
@@ -1200,7 +1194,7 @@
debug-menu-item-render
((arg0 debug-menu-item) (arg1 int) (arg2 int) (arg3 int) (arg4 symbol))
(when (> (-> arg0 refresh-delay) 0)
(set! (-> arg0 refresh-ctr) (+ (-> arg0 refresh-ctr) -1))
(+! (-> arg0 refresh-ctr) -1)
(when (<= (-> arg0 refresh-ctr) 0)
(set! (-> arg0 refresh-ctr) (-> arg0 refresh-delay))
(debug-menu-item-send-msg arg0 3)
@@ -1506,7 +1500,7 @@
(defun debug-menu-context-close-submenu ((arg0 debug-menu-context))
(debug-menu-context-send-msg arg0 2 3)
(if (< 1 (-> arg0 sel-length))
(set! (-> arg0 sel-length) (+ (-> arg0 sel-length) -1))
(+! (-> arg0 sel-length) -1)
)
arg0
)
@@ -1672,7 +1666,7 @@
(cond
((<= (-> arg0 inc-delay-ctr) 0)
(if (> (-> arg0 inc-delay) 0)
(set! (-> arg0 inc-delay) (+ (-> arg0 inc-delay) -1))
(+! (-> arg0 inc-delay) -1)
)
(when (zero? (-> arg0 inc-delay))
(cond
@@ -1695,7 +1689,7 @@
)
)
(else
(set! (-> arg0 step-delay-ctr) (+ (-> arg0 step-delay-ctr) -1))
(+! (-> arg0 step-delay-ctr) -1)
)
)
)
@@ -1770,7 +1764,7 @@
)
)
(else
(set! (-> arg0 inc-delay-ctr) (+ (-> arg0 inc-delay-ctr) -1))
(+! (-> arg0 inc-delay-ctr) -1)
)
)
)