Commit 265f1eab authored by John van Groningen's avatar John van Groningen
Browse files

prevent crash if a newtype is used with -dynamics

parent a1971e18
...@@ -134,6 +134,10 @@ where ...@@ -134,6 +134,10 @@ where
write_type_info (AlgConses _ _) tcl_file wtis write_type_info (AlgConses _ _) tcl_file wtis
// unimplemented // unimplemented
= (tcl_file,wtis) = (tcl_file,wtis)
write_type_info (NewType _) tcl_file wtis
#! tcl_file = fwritec AbstractTypeCode tcl_file;
// unimplemented
= (tcl_file,wtis)
instance WriteTypeInfo DefinedSymbol instance WriteTypeInfo DefinedSymbol
where where
......
Supports Markdown
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