From: Jim Pryor Date: Fri, 19 Nov 2010 14:06:24 +0000 (-0500) Subject: assignment7 tweaks X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=commitdiff_plain;h=42a3335d8d35d189aa7de17622cd3e61d9d4b72f;hp=1d5249432378066bbe948bfe0b303704e18468a5 assignment7 tweaks Signed-off-by: Jim Pryor --- diff --git a/hints/assignment_7_hint_4.mdwn b/hints/assignment_7_hint_4.mdwn index e4f0a790..568a9cc0 100644 --- a/hints/assignment_7_hint_4.mdwn +++ b/hints/assignment_7_hint_4.mdwn @@ -99,10 +99,10 @@ which is: - fun truth_value -> + let eliminate_non_Qxs = fun truth_value -> if truth_value then unit_set ( - let eliminate_non_Qxs = fun (r, h) -> + fun (r, h) -> let obj = List.nth h (r 'x') let (a, r', h') = (obj, r, h) in let u' = (fun e -> unit_dpm (Q e)) a