# HG changeset patch
# User wenzelm
# Date 903539100 -7200
# Node ID d7927fc7170d9068dc686b0c93290bdeece1be45
# Parent  6a949382cdfe29082196cb37e2097f1c673fae3e
fixed param;

diff -r 6a949382cdfe -r d7927fc7170d src/Pure/type.ML
--- 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 *)