diff options
| author | johnvg | 2008-03-26 11:33:34 +0000 |
|---|---|---|
| committer | johnvg | 2008-03-26 11:33:34 +0000 |
| commit | 0d259aa8ba11264e95626cdb31ba8fce5f3da164 (patch) | |
| tree | 0f2d58dc7d3b95419abce30c9fd94854794a84d4 | |
| parent | move function remove_first_n from backendinterface to containers (diff) | |
handle NewType in function isTypeSynonym
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1697 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/typereify.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/frontend/typereify.icl b/frontend/typereify.icl index ed7cf70..2ce4f95 100644 --- a/frontend/typereify.icl +++ b/frontend/typereify.icl @@ -67,6 +67,8 @@ instance isTypeSynonym TypeRhs where = False isTypeSynonym (AbstractSynType _ _) = False + isTypeSynonym (NewType _) + = False add_dcl_type_fun_types :: TypeSymbIdent Int *{#DclModule} *VarHeap *SymbolTable -> (*{#DclModule}, *VarHeap, *SymbolTable) |