changeset 37445 | e372fa3c7239 |
parent 37439 | c72a43a7d2c5 |
child 37446 | fc55011cfdfd |
--- a/src/Tools/Code/code_scala.ML Thu Jun 17 10:45:10 2010 +0200 +++ b/src/Tools/Code/code_scala.ML Thu Jun 17 10:51:38 2010 +0200 @@ -252,7 +252,7 @@ ) end | print_stmt (name, Code_Thingol.Classinst ((class, (tyco, vs)), - ((super_instances, _), classparam_instances))) = + (super_instances, classparam_instances))) = let val tyvars = intro_vars (map fst vs) reserved; val insttyp = tyco `%% map (ITyVar o fst) vs;