;; Benchmark: Record Destructuring Performance
;; This test calls a function that destructures a record 100.000 times.
;; Current implementation is now zero-allocation for destructuring.
;; Output: {:a 1, :b 2}
;; Benchmark: 5.2ms

(do
  (def process (fn [[x y]] 
    (+ x y)))

  (def rec {:a 1 :b 2})

  (def loop (fn [n acc]
    (if (= n 0)
      acc
      (loop (- n 1) (process rec)))))

  (loop 10000 0)
  rec
)