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
@@ -425,7 +425,7 @@
)
(set! (-> con prev1) (-> proc connection-list))
(set! (-> proc connection-list next1) con)
(set! (-> obj length) (+ (-> obj length) 1))
(+! (-> obj length) 1)
con
)
)
@@ -444,7 +444,7 @@
(set! (-> obj next0 prev0) obj)
(set! (-> obj prev0) (-> v1-1 dead-list))
(set! (-> v1-1 dead-list next0) obj)
(set! (-> v1-1 length) (+ (-> v1-1 length) -1))
(+! (-> v1-1 length) -1)
)
obj
)