diff options
| author | johnvg | 2002-02-08 13:44:23 +0000 |
|---|---|---|
| committer | johnvg | 2002-02-08 13:44:23 +0000 |
| commit | 24490c83f8cf7d29df9e80a3deccb4684b74b065 (patch) | |
| tree | 8e171e2b56e99fc7377eaf77ebf6f8d33022b2e6 /frontend/comparedefimp.icl | |
| parent | - cosmetic changes: made some String-representation of type names symbolic (diff) | |
add missing alternatives in equal_strictness_lists and
move the function to module containers
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1007 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/comparedefimp.icl')
| -rw-r--r-- | frontend/comparedefimp.icl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl index 9580c2f..7084aec 100644 --- a/frontend/comparedefimp.icl +++ b/frontend/comparedefimp.icl @@ -235,15 +235,6 @@ where compare strictness1 strictness2 comp_st = (equal_strictness_lists strictness1 strictness2,comp_st) -equal_strictness_lists NotStrict NotStrict - = True -equal_strictness_lists NotStrict (Strict s) - = s==0 -equal_strictness_lists (Strict s) NotStrict - = s==0 -equal_strictness_lists (Strict s1) (Strict s2) - = s1==s2 - instance compare AttributeVar where compare {av_info_ptr = dcl_info_ptr} {av_info_ptr = icl_info_ptr} comp_st=:{comp_attr_var_heap} |