--- a/CookBook/antiquote_setup.ML	Sat Nov 01 15:20:36 2008 +0100
+++ b/CookBook/antiquote_setup.ML	Mon Nov 24 02:51:08 2008 +0100
@@ -24,7 +24,6 @@
 
 fun ml_struct txt = "functor DUMMY_FUNCTOR() = struct structure DUMMY = " ^ txt ^ " end";
 fun ml_type txt = "val _ = NONE : (" ^ txt ^ ") option";
-fun ml_decl txt = txt
 
 fun output_ml_open ml src ctxt ((txt,ovars),pos) =
   (ML_Context.eval_in (SOME ctxt) false pos (ml ovars txt);