diff options
| author | diederik | 2002-07-25 15:05:20 +0000 |
|---|---|---|
| committer | diederik | 2002-07-25 15:05:20 +0000 |
| commit | 4d37dd1e0daf16ea7005113b46318feab10dae54 (patch) | |
| tree | 6796c30eacb8ca39a5cd54d79b13d284b1e7be46 /frontend/classify.icl | |
| parent | extend for reclassify (diff) | |
fix typo
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1174 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/classify.icl')
| -rw-r--r-- | frontend/classify.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/classify.icl b/frontend/classify.icl index 0b1966f..3bf5da8 100644 --- a/frontend/classify.icl +++ b/frontend/classify.icl @@ -802,9 +802,9 @@ where collect_classifications class_subst fun class_env # (fun_class, class_env) = class_env![fun] fun_class = determine_classification fun_class class_subst - = { class_env & [fun] = fun_class + = { class_env & [fun] = fun_class } - set_case_expr_info ({case_expr=case_expr=:(Var {var_info_ptr}), case_guards, case_info_ptr},fun_index) + set_case_expr_info ({case_expr=(Var {var_info_ptr}), case_guards, case_info_ptr},fun_index) (cleanup_acc, class_env, fun_defs, var_heap, expr_heap) # (VI_AccVar _ arg_position, var_heap) = readPtr var_info_ptr var_heap ({cc_size, cc_args, cc_linear_bits},class_env) = class_env![fun_index] |