X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=hints%2Fassignment_7_hint_4.mdwn;fp=hints%2Fassignment_7_hint_4.mdwn;h=71ed621b6b108a5129242340d9f2723d5610dcad;hp=278ca812a52368fcfced1af38b191d5343a00332;hb=1ad04632ef842a0591d1387d7709afc82f6ed3bd;hpb=f5da15db3310f323c87c84ddc650ebcc07e075ed diff --git a/hints/assignment_7_hint_4.mdwn b/hints/assignment_7_hint_4.mdwn index 278ca812..71ed621b 100644 --- a/hints/assignment_7_hint_4.mdwn +++ b/hints/assignment_7_hint_4.mdwn @@ -79,7 +79,7 @@ then unit_set (bind_dpm getx (fun e -> unit_dpm (Q e))) else empty_set - which is: + unpacking the definition of `bind_dpm`, that is: let getx = fun (r, h) -> let obj = List.nth h (r 'x')