# HG changeset patch
# User haftmann
# Date 1288088155 -7200
# Node ID e44d0471692019b002493eea51061586b53336b3
# Parent  1348d4982a1776802a91cbbda670941e6f804390
dropped accidental doubled computation

diff -r 1348d4982a17 -r e44d04716920 src/Tools/Code/code_preproc.ML
--- a/src/Tools/Code/code_preproc.ML	Tue Oct 26 11:20:14 2010 +0200
+++ b/src/Tools/Code/code_preproc.ML	Tue Oct 26 12:15:55 2010 +0200
@@ -480,7 +480,6 @@
     val consts = fold_aterms
       (fn Const (c, _) => insert (op =) c | _ => I) t' [];
     val (algebra', eqngr') = obtain false thy consts [t'];
-    val result = evaluator algebra' eqngr' vs' t';
   in
     evaluator algebra' eqngr' vs' t'
     |> postproc (postprocess_term thy o resubst)