From b9d3c2066f3cd10cf0fcda8fb2a6148b6a93ad88 Mon Sep 17 00:00:00 2001 From: johnvg Date: Mon, 17 Jun 2002 11:53:07 +0000 Subject: removed ignored !'s git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1099 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/convertDynamics.icl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'frontend/convertDynamics.icl') diff --git a/frontend/convertDynamics.icl b/frontend/convertDynamics.icl index 7d4f595..1b4d617 100644 --- a/frontend/convertDynamics.icl +++ b/frontend/convertDynamics.icl @@ -35,7 +35,7 @@ from type_io_common import class toString (..),instance toString GlobalTCType; , ci_module_id_symbol :: Expression , ci_internal_type_id :: Expression , ci_module_id :: Optional LetBind - , ci_type_id :: !Optional !TypeSymbIdent + , ci_type_id :: !Optional TypeSymbIdent , ci_type_constructor_used_in_dynamic_patterns :: !*{#Bool} } @@ -129,8 +129,8 @@ f (Yes tcl_file) = tcl_file; 0.2*/ -convertDynamicPatternsIntoUnifyAppls :: {! GlobalTCType} !{# CommonDefs} !Int !*{! Group} !*{#FunDef} !*PredefinedSymbols !*VarHeap !*TypeHeaps !*ExpressionHeap (Optional !*File) {# DclModule} !IclModule [String] - -> (!*{! Group}, !*{#FunDef}, !*PredefinedSymbols, !*{#{# CheckedTypeDef}}, !ImportedConstructors, !*VarHeap, !*TypeHeaps, !*ExpressionHeap, (Optional !*File)) +convertDynamicPatternsIntoUnifyAppls :: {! GlobalTCType} !{# CommonDefs} !Int !*{! Group} !*{#FunDef} !*PredefinedSymbols !*VarHeap !*TypeHeaps !*ExpressionHeap (Optional *File) {# DclModule} !IclModule [String] + -> (!*{! Group}, !*{#FunDef}, !*PredefinedSymbols, !*{#{# CheckedTypeDef}}, !ImportedConstructors, !*VarHeap, !*TypeHeaps, !*ExpressionHeap, (Optional *File)) convertDynamicPatternsIntoUnifyAppls global_type_instances common_defs main_dcl_module_n groups fun_defs predefined_symbols var_heap type_heaps expr_heap tcl_file dcl_mods icl_mod directly_imported_dcl_modules # ({pds_module, pds_def} , predefined_symbols) = predefined_symbols![PD_StdDynamic] #! (dynamic_temp_symb_ident,ci_sel_value_field,ci_sel_type_field,predefined_symbols) -- cgit v1.2.3