diff options
| author | martinw | 1999-11-05 15:52:38 +0000 |
|---|---|---|
| committer | martinw | 1999-11-05 15:52:38 +0000 |
| commit | 756c4fb3c676ef7ba0a6a28673c8c261c15a80d6 (patch) | |
| tree | a0fcba2cada948a2211ffe320c76d5d7a2aabbb2 | |
| parent | fusion works now. The fusion switch in module typesupport is enabled (diff) | |
minor changes
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@36 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/analtypes.icl | 1 | ||||
| -rw-r--r-- | frontend/convertDynamics.icl | 2 | ||||
| -rw-r--r-- | frontend/typesupport.icl | 2 |
3 files changed, 0 insertions, 5 deletions
diff --git a/frontend/analtypes.icl b/frontend/analtypes.icl index af64bb9..2793a43 100644 --- a/frontend/analtypes.icl +++ b/frontend/analtypes.icl @@ -23,7 +23,6 @@ where kind_list_to_string [] = " ?????? " kind_list_to_string [k] = "* -> *" kind_list_to_string [k:ks] = "* -> " +++ kind_list_to_string ks - toString ki = "PPPP" //abort ("instance toString KindInfo matcht niet"->>ki) kindError kind1 kind2 error diff --git a/frontend/convertDynamics.icl b/frontend/convertDynamics.icl index dc88ae7..d046d72 100644 --- a/frontend/convertDynamics.icl +++ b/frontend/convertDynamics.icl @@ -1,8 +1,6 @@ implementation module convertDynamics import syntax, transform, utilities, convertcases -// XXX -import RWSDebug :: *ConversionInfo = { ci_predef_symb :: !*PredefinedSymbols diff --git a/frontend/typesupport.icl b/frontend/typesupport.icl index 5f8d6f0..7352a4b 100644 --- a/frontend/typesupport.icl +++ b/frontend/typesupport.icl @@ -380,8 +380,6 @@ instance bindInstances Type = type_var_heap bindInstances (CV l1 :@: r1) (CV l2 :@: r2) type_var_heap = bindInstances r1 r2 (bindInstances (TV l1) (TV l2) type_var_heap) - bindInstances a b tvh - = abort ("abort"--->(a,b)) instance bindInstances [a] | bindInstances a where |