Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed command
authornipkow
Fri, 09 Jun 2006 12:17:58 +0200
changeset 19830 b81d803dfaa4
parent 19829 d909e782e247
child 19831 c00e04f8a52a
renamed command
src/Pure/Tools/nbe.ML file | annotate | diff | comparison | revisions
src/Pure/Tools/nbe_codegen.ML file | annotate | diff | comparison | revisions 
--- 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];
--- 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);
isabelle