src/Tools/Code/code_scala.ML
changeset 37446 fc55011cfdfd
parent 37445 e372fa3c7239
child 37447 ad3e04f289b6
     1.1 --- a/src/Tools/Code/code_scala.ML	Thu Jun 17 10:51:38 2010 +0200
     1.2 +++ b/src/Tools/Code/code_scala.ML	Thu Jun 17 10:57:00 2010 +0200
     1.3 @@ -212,7 +212,7 @@
     1.4                :: map print_co cos
     1.5              )
     1.6            end
     1.7 -      | print_stmt (name, Code_Thingol.Class (_, (v, (super_classes, classparams)))) =
     1.8 +      | print_stmt (name, Code_Thingol.Class (_, (v, ((super_classes, all_super_classes), classparams)))) =
     1.9            let
    1.10              val tyvars = intro_vars [v] reserved;
    1.11              val vs = [(v, [name])];