X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=exercises%2Fassignment5_answers.mdwn;fp=exercises%2Fassignment5_answers.mdwn;h=1780b0aa4cfdb4323682d43ff59fdf0e0d0997a1;hp=0cdfa6127906806cc805881cbc6e2ae8a913a920;hb=346405d4f6439e7a87409572ba46b84c8628d5c0;hpb=bb4e4397efc09f2c282863f93f86c70e4bb87961

diff --git a/exercises/assignment5_answers.mdwn b/exercises/assignment5_answers.mdwn
index 0cdfa612..1780b0aa 100644
--- a/exercises/assignment5_answers.mdwn
+++ b/exercises/assignment5_answers.mdwn
@@ -263,7 +263,7 @@ Choose one of these languages and write the following functions.
 
         let rec tree_best_sofar (t : 'a color_tree) (lead : maybe_leader) : maybe_leader * int =
           match t with
-          | Leaf a -> (None, a)
+          | Leaf a -> (lead, a)
           | Branch(l, col, r) ->
               let (lead',left_score) = tree_best_sofar l lead in
               let (lead'',right_score) = tree_best_sofar r lead' in