| changeset 19830 | b81d803dfaa4 |
| parent 19795 | 746274ca400b |
| child 20706 | f77bd47a70df |
--- 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);