match test with
| {height = h; weight = w; char_tester = test} ->
- (* go on to use h, w, and test ... *)
+ (* same as preceding *)
Anyway, using record types, we might define the tree zipper interface like so:
;;
val foo : int -> int = <fun>
# foo 1;;
- - : int = 10
+ - : int = 110
# foo 2;;
- : int = 20
# foo 3;;