21 lines
705 B
Plaintext
21 lines
705 B
Plaintext
;;;; A dyn's .field and [:key] trap with get's and put's own sentences, one
|
|
;;;; per run. The argument chooses which; the test asserts the line numbers.
|
|
(defclass State [paused bool step bool])
|
|
|
|
(defn as-dyn [d dyn] dyn d)
|
|
|
|
(defn main [args [str]] i32
|
|
(let [which (if (> (length args) 1) (i32 (bytes->i64 (bytes-view (at args 1)))) 0)
|
|
s (State false false)
|
|
n (as-dyn 3)]
|
|
(println "before")
|
|
(cond
|
|
(= which 0) (println (.paused n))
|
|
(= which 1) (set (.paused s) 1)
|
|
(= which 2) (set (.paused n) true)
|
|
(= which 3) (set (at s :step) 2)
|
|
(= which 5) (set (.pasued s) true)
|
|
(= which 6) (println (.pasued s))
|
|
:else (println (at n :paused))))
|
|
0)
|