(bind-func BTree_walk_inorder:[void,BTree{!v}*,[void,!v]*]*
(lambda (tree fn)
(if (null? tree) null
(begin
(BTree_walk_inorder fn (BTree_left tree))
(fn (tref tree 0))
(BTree_walk_inorder fn (BTree_right tree))))))