;;;; Unit lolevel testing

(require-extension lolevel)

(define (foo a b) (list a b))
(define tstvec (vector #f))
(define ev-tstvec (object-evict tstvec))
(object-release ev-tstvec)
(define some-foo '#(1 2 3))
(define some-bar '(1 2 3))
(object-become! (list (cons some-foo '(1 2 3)) (cons some-bar '#(1 2 3))))
(define new-foo (mutate-procedure! foo (lambda (new) (lambda args (cons 'hello (apply new args))))))
foo

; run this with:  bin/csi -n -s -:g -:hi420K x.scm
; interestingly, commenting out the "object-release" will make it work again...