diff options
| author | clean | 2000-06-20 15:12:55 +0000 |
|---|---|---|
| committer | clean | 2000-06-20 15:12:55 +0000 |
| commit | c08f5ef5ea2b16628251fd655cbedc10c47a7d3e (patch) | |
| tree | beb77c82eaf3e8096d463b749d7a46794005129c | |
| parent | re-adding dead version (diff) | |
no message
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@174 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/postparse.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/postparse.icl b/frontend/postparse.icl index 51ebcf8..2578f92 100644 --- a/frontend/postparse.icl +++ b/frontend/postparse.icl @@ -777,7 +777,8 @@ collectFunctionBodies fun_name fun_arity fun_prio fun_kind all_defs=:[PD_Functio collectFunctionBodies fun_name fun_arity fun_prio fun_kind defs ca = ([], fun_kind, defs, ca) -reorganiseDefinitions :: Bool [ParsedDefinition] Index Index Index *CollectAdmin -> ([FunDef],CollectedDefinitions (ParsedInstance FunDef) [FunDef], [ParsedImport], [ImportedObject], *CollectAdmin) +//reorganiseDefinitions :: Bool [ParsedDefinition] Index Index Index *CollectAdmin -> ([FunDef],CollectedDefinitions (ParsedInstance FunDef) [FunDef], [ParsedImport], [ImportedObject], *CollectAdmin) +reorganiseDefinitions :: Bool [ParsedDefinition] Index Index Index *CollectAdmin -> (![FunDef],!CollectedDefinitions (ParsedInstance FunDef) [FunDef], ![ParsedImport], ![ImportedObject], !*CollectAdmin) reorganiseDefinitions icl_module [PD_Function pos name is_infix args rhs fun_kind : defs] cons_count sel_count mem_count ca # prio = if is_infix (Prio NoAssoc 9) NoPrio fun_arity = length args |