Signed-off-by: Jim Pryor <profjim@jimpryor.net>
let rec move_botleft (z : 'a zipper) : 'a zipper =
(* returns z if the targetted node in z has no children *)
let rec move_botleft (z : 'a zipper) : 'a zipper =
(* returns z if the targetted node in z has no children *)
- (* else returns move_botleft (zipper which results from moving down and left in z) *)
+ (* else returns move_botleft (zipper which results from moving down from z to the leftmost child) *)
_____
(* YOU SUPPLY THE DEFINITION *)
_____
(* YOU SUPPLY THE DEFINITION *)