diff options
| -rw-r--r-- | backend/backendconvert.icl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 73475dd..0e9d0a5 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -12,8 +12,6 @@ import frontend import backend import backendsupport, backendpreprocess -import RWSDebug - // trace macro (-*->) infixl (-*->) value trace @@ -385,8 +383,6 @@ backEndConvertModules p s main_dcl_module_n var_heap attr_var_heap be # {bes_varHeap,bes_attrHeap,bes_backEnd} = backEndConvertModulesH p s main_dcl_module_n {bes_varHeap=var_heap,bes_attrHeap=attr_var_heap,bes_backEnd=be, bes_attr_number = 0} = (bes_varHeap,bes_attrHeap,bes_backEnd) -import RWSDebug - backEndConvertModulesH :: PredefinedSymbols FrontEndSyntaxTree !Int *BackEndState -> *BackEndState backEndConvertModulesH predefs {fe_icl = fe_icl =: {icl_name, icl_functions, icl_common,icl_global_functions,icl_imported_objects,icl_used_module_numbers, icl_modification_time}, @@ -1436,7 +1432,7 @@ convertTypeNode TE convertTypeNode (TFA vars type) = beAddForAllTypeVariables (convertTypeVars vars) (convertTypeNode type) convertTypeNode typeNode - = abort "convertTypeNode" <<- ("backendconvert, convertTypeNode: unknown type node", typeNode) + = abort "convertTypeNode" // <<- ("backendconvert, convertTypeNode: unknown type node", typeNode) consVariableToType :: ConsVariable -> Type consVariableToType (CV typeVar) |