diff options
| author | ronny | 2001-06-01 14:28:47 +0000 |
|---|---|---|
| committer | ronny | 2001-06-01 14:28:47 +0000 |
| commit | 0dfb4cabd04f477569878ebd6ad1b0b399c17b55 (patch) | |
| tree | 54568cffdd327e9cd89d73d13b660c68e4d45ef8 /frontend | |
| parent | added 'import code from "cae.obj"' (diff) | |
removed MW0 comments
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@450 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/convertcases.icl | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 7972af1..b7a7210 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -74,8 +74,6 @@ where _ -> abort "convertCases [Let] (convertcases 53)" // <<- let_info -// MW0 addLetVars [{bind_dst} : binds] [bind_type : bind_types] bound_vars -// MW0 = addLetVars binds bind_types [ (bind_dst, bind_type) : bound_vars ] addLetVars [{lb_dst} : binds] [bind_type : bind_types] bound_vars = addLetVars binds bind_types [ (lb_dst, bind_type) : bound_vars ] addLetVars [] _ bound_vars @@ -659,8 +657,6 @@ where # (let_expr, cp_info) = copy let_expr cp_info = (Let {lad & let_strict_binds = let_strict_binds, let_lazy_binds = let_lazy_binds, let_expr = let_expr }, cp_info) where -// MW0 bind_let_var {bind_dst} (local_vars, var_heap) -// MW0 = ([bind_dst : local_vars], var_heap <:= (bind_dst.fv_info_ptr, VI_LocalVar)) bind_let_var {lb_dst} (local_vars, var_heap) = ([lb_dst : local_vars], var_heap <:= (lb_dst.fv_info_ptr, VI_LocalVar)) copy (Case case_expr) cp_info |