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.
fixed param;
authorwenzelm
Wed, 19 Aug 1998 17:05:00 +0200
changeset 5345 d7927fc7170d
parent 5344 6a949382cdfe
child 5346 bc9748ad8491
fixed param;
src/Pure/type.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/type.ML	Wed Aug 19 17:04:21 1998 +0200
+++ b/src/Pure/type.ML	Wed Aug 19 17:05:00 1998 +0200
@@ -821,7 +821,7 @@
 (* user parameters *)
 
 fun is_param (x, _) = size x > 0 andalso ord x = ord "?";
-fun param used (x, S) = TVar (("?" ^ variant used x, 0), S);
+fun param used (x, S) = TVar ((variant used ("?" ^ x), 0), S);
 
 
 (* decode_types *)
isabelle