diff options
| author | johnvg | 2012-08-14 10:39:44 +0000 |
|---|---|---|
| committer | johnvg | 2012-08-14 10:39:44 +0000 |
| commit | 7c5e3ff056c054ef5cd94962808163073d48c0d0 (patch) | |
| tree | 3d7589ea9c9748dc4bcd64d9a59c6c7516c20d97 /backend | |
| parent | add extendable algebraic data types (merged from iTask branch) (diff) | |
rename extendable to extensible
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2150 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index aea02aa..9c04f59 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -852,7 +852,7 @@ defineType moduleIndex _ _ typeIndex {td_attribute, td_args, td_rhs=AbstractType = beAbsType (convertTypeLhs moduleIndex typeIndex td_attribute td_args) be defineType moduleIndex _ _ typeIndex {td_attribute, td_args, td_rhs=AbstractSynType _ _} be = beAbsType (convertTypeLhs moduleIndex typeIndex td_attribute td_args) be -defineType moduleIndex constructors _ typeIndex {td_ident, td_attribute, td_args, td_rhs=ExtendableAlgType constructorSymbols} be +defineType moduleIndex constructors _ typeIndex {td_ident, td_attribute, td_args, td_rhs=ExtensibleAlgType constructorSymbols} be # (flatType, be) = convertTypeLhs moduleIndex typeIndex td_attribute td_args be # (constructors, be) = convertConstructors typeIndex td_ident.id_name moduleIndex constructors constructorSymbols be = appBackEnd (BEExtendableAlgebraicType flatType constructors) be |