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
@@ -400,17 +400,14 @@
)
)
)
(set! (-> obj vel) (+ (-> obj vel) f0-3))
(+! (-> obj vel) f0-3)
)
(set!
(-> obj vel)
(fmin (-> obj max-vel) (fmax (- (-> obj max-vel)) (-> obj vel)))
)
(set! (-> obj vel) (* (-> obj vel) (-> obj damping)))
(set!
(-> obj value)
(+ (-> obj value) (* (-> obj vel) (-> *display* time-adjust-ratio)))
)
(+! (-> obj value) (* (-> obj vel) (-> *display* time-adjust-ratio)))
(-> obj value)
)