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