From 4d37dd1e0daf16ea7005113b46318feab10dae54 Mon Sep 17 00:00:00 2001
From: diederik
Date: Thu, 25 Jul 2002 15:05:20 +0000
Subject: fix typo

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1174 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/classify.icl | 4 ++--
 1 file 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]
-- 
cgit v1.2.3