# HG changeset patch
# User nipkow
# Date 1149848278 -7200
# Node ID b81d803dfaa4b918547bba2c4b14e3e5996e3e99
# Parent  d909e782e247815b1fc483264a39ee078a2a0032
renamed command

diff -r d909e782e247 -r b81d803dfaa4 src/Pure/Tools/nbe.ML
--- a/src/Pure/Tools/nbe.ML	Fri Jun 09 12:17:37 2006 +0200
+++ b/src/Pure/Tools/nbe.ML	Fri Jun 09 12:17:58 2006 +0200
@@ -96,7 +96,7 @@
 structure P = OuterParse and K = OuterKeyword;
 
 val nbeP =
-  OuterSyntax.command "norm_by_eval" "normalization by evaluation" K.thy_decl
+  OuterSyntax.command "normal_form" "normalization by evaluation" K.thy_decl
     (P.term >> (fn t => Toplevel.theory (snd o norm_by_eval t)));
 
 val _ = OuterSyntax.add_parsers [nbeP];
diff -r d909e782e247 -r b81d803dfaa4 src/Pure/Tools/nbe_codegen.ML
--- a/src/Pure/Tools/nbe_codegen.ML	Fri Jun 09 12:17:37 2006 +0200
+++ b/src/Pure/Tools/nbe_codegen.ML	Fri Jun 09 12:17:58 2006 +0200
@@ -143,7 +143,7 @@
 
 val tcount = ref 0;
 
-(* FIXME get rid of TVar case!!! *)
+(* FIXME get rid of TFree case!!! *)
 fun varifyT ty =
   let val ty' = map_type_tvar (fn ((s,i),S) => TypeInfer.param (!tcount + i) (s,S)) ty;
       val _ = (tcount := !tcount + maxidx_of_typ ty + 1);