Bug fix: wrong order of default variables.
This commit is contained in:
parent
09aa5120f5
commit
a069d566f8
|
@ -399,7 +399,7 @@ structure Hide_Tvar : HIDE_TVAR = struct
|
||||||
| _ => error("Unsupported type structure.")
|
| _ => error("Unsupported type structure.")
|
||||||
val type_vars_ast = map (fn n => Ast.Variable(name_of_tvar n)) (#tvars default_info)
|
val type_vars_ast = map (fn n => Ast.Variable(name_of_tvar n)) (#tvars default_info)
|
||||||
val type_vars_ast = case hole of
|
val type_vars_ast = case hole of
|
||||||
right => List.drop(List.rev type_vars_ast, List.length args)@args
|
right => (List.rev(List.drop(List.rev type_vars_ast, List.length args)))@args
|
||||||
| left => args@List.drop(type_vars_ast, List.length args)
|
| left => args@List.drop(type_vars_ast, List.length args)
|
||||||
in
|
in
|
||||||
Ast.Appl ((Ast.Constant decorated_name)::type_vars_ast)
|
Ast.Appl ((Ast.Constant decorated_name)::type_vars_ast)
|
||||||
|
|
Loading…
Reference in New Issue