aboutsummaryrefslogtreecommitdiff
path: root/frontend/generics.icl
diff options
context:
space:
mode:
Diffstat (limited to 'frontend/generics.icl')
-rw-r--r--frontend/generics.icl6
1 files changed, 4 insertions, 2 deletions
diff --git a/frontend/generics.icl b/frontend/generics.icl
index 155dccc..7874c64 100644
--- a/frontend/generics.icl
+++ b/frontend/generics.icl
@@ -1680,7 +1680,8 @@ buildClassDef
class_pos = gen_pos,
class_members = createArray 1 class_member,
class_cons_vars = case kind of KindConst -> 0; _ -> 1,
- class_dictionary = class_dictionary
+ class_dictionary = class_dictionary,
+ class_arg_kinds = [kind]
}
#! com_class_defs = append_array com_class_defs class_def
@@ -1772,7 +1773,8 @@ where
class_pos = gen_pos,
class_members = createArray 1 class_member,
class_cons_vars = case kind of KindConst -> 0; _ -> 1,
- class_dictionary = class_dictionary
+ class_dictionary = class_dictionary,
+ class_arg_kinds = [kind]
}
= class_def