(bind-func add_walker
(lambda (wa:WalkerArray* walker:Walker*)
(let ((current_size (tref wa 0))
(next_walker (walker_at_index wa current_size)))
(tfill! next_walker
(tref walker 0)
(tref walker 1))
(tset! wa 0 (+ current_size 1))
void)))