diff options
| author | johnvg | 2012-08-02 11:08:38 +0000 |
|---|---|---|
| committer | johnvg | 2012-08-02 11:08:38 +0000 |
| commit | 6fefdc2bdbf518c1c22f6a130bb803abe9f174d7 (patch) | |
| tree | 2d495b0532246eab6870886d84f03907531f8bae /frontend/partition.icl | |
| parent | optimize is constructor functions (diff) | |
add pattern match test using =: in expressions,
add constructors PE_Matches and IsConstructor in module syntax
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2130 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/partition.icl')
| -rw-r--r-- | frontend/partition.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/partition.icl b/frontend/partition.icl index 25f2ef3..f10ccc3 100644 --- a/frontend/partition.icl +++ b/frontend/partition.icl @@ -207,7 +207,6 @@ where , pi_collect`` :: !.CollectState } -//:: Marks :== {# Int} :: Marks :== {# Mark} :: Mark = { m_fun :: !Int, m_mark :: !Int} @@ -426,6 +425,8 @@ where = fc_state find_calls fc_info (MatchExpr _ expr) fc_state = find_calls fc_info expr fc_state + find_calls fc_info (IsConstructor expr _ _ _ _ _) fc_state + = find_calls fc_info expr fc_state find_calls fc_info EE fc_state = fc_state find_calls fc_info (NoBind _) fc_state |