Commit adbb49f0 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl
Browse files

change generic bimap to: generic bimap a b | bimap b a :: .a ->.b

parent d74e4c8a
This diff is collapsed.
......@@ -657,7 +657,6 @@ NoGlobalIndex :== {gi_module=NoIndex,gi_index=NoIndex}
:: GenericTypeRep =
{ gtr_type :: GenTypeStruct // generic structure type
, gtr_iso :: !DefinedSymbol // the conversion isomorphism
, gtr_to :: !DefinedSymbol
, gtr_from :: !DefinedSymbol
}
......@@ -1161,8 +1160,6 @@ cNotVarNumber :== -1
| TVI_Kind !TypeKind
| TVI_ConsInstance !DefinedSymbol //AA: generic cons instance function
| TVI_Normalized !Int /* MV - position of type variable in its definition */
| TVI_Expr !Bool !Expression /* AA: Expression corresponding to the type var during generic specialization */
| TVI_Iso !DefinedSymbol !DefinedSymbol !DefinedSymbol
| TVI_GenTypeVarNumber !Int
| TVI_TypeVarArgN !Int // type argument number in module backendconvert
| TVI_Attr !TypeAttribute
......
......@@ -827,7 +827,6 @@ where
(<<<) file (TVI_PropClass _ _ _) = file <<< "TVI_PropClass"
(<<<) file (TVI_TypeKind kind_info_ptr) = file <<< "TVI_TypeKind " <<< (ptrToInt kind_info_ptr)
(<<<) file (TVI_Kind kind) = file <<< "TVI_Kind" <<< kind
(<<<) file (TVI_Expr is_bimap_id expr) = file <<< "TVI_Expr " <<< is_bimap_id <<< ' ' <<< expr
instance <<< AttrVarInfo
where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment