1.1 --- a/src/Tools/Code/code_simp.ML	Fri Jun 18 15:26:02 2010 +0200
     1.2 +++ b/src/Tools/Code/code_simp.ML	Fri Jun 18 15:26:04 2010 +0200
     1.3 @@ -75,7 +75,7 @@
     1.4  fun current_value thy = snd o Logic.dest_equals o Thm.prop_of o current_conv thy o Thm.cterm_of thy;
     1.5  
     1.6  val setup = Method.setup (Binding.name "code_simp")
     1.7 -  (Scan.succeed (SIMPLE_METHOD' o current_tac o ProofContext.theory_of))
     1.8 +  (Scan.succeed (SIMPLE_METHOD' o (CHANGED_PROP oo current_tac o ProofContext.theory_of)))
     1.9    "simplification with code equations"
    1.10    #> Value.add_evaluator ("simp", current_value o ProofContext.theory_of);
    1.11