case

zaoqi · Aug 18, 2018 · c08ddc5 · c08ddc5
1 parent ffe8c62
commit c08ddc5
Show file tree

Hide file tree

Showing 3 changed files with 68 additions and 66 deletions.
diff --git a/example-case.c b/example-case.c
@@ -1,7 +1,8 @@
 #include "module<"
 define_public_lambda_withTypeOfBody(CaSe(var(x, int)) __ int)(
 	case_const_number(x, int)(
-		((1,2),3;);
+		((1,2) __ 3;),
+		(_ __ 4;)
 	);
 )
 

diff --git a/make.c b/make.c
@@ -440,7 +440,8 @@ LANG_define => 全局定義
 				DEFINE_FUNCTION(X(LANG_prefix"case_const_number_hELPEr")Nat(i),var_from_to(1,i), \
 					for_in_from_to(j, 1, i, { \
 						X(LANG_prefix"case_const_number_hELPEr_each")X(" _")Nat(j)X(" ") \
-					}))}) \
+					}) \
+					X("}"LANG_prefix"case_const_number_tEMp;})"))}) \
 			DEFINE_FUNCTION(X(LANG_prefix"case_const_number_hELPEr_each0"),X("x"), \
 				Call1(X(TOOLS_prefix"expand"), X(LANG_prefix"case_const_number_hELPEr_each")X(" x"))) \
 			DEFINE_FUNCTION(X(LANG_prefix"case_const_number_hELPEr_append"),X("x,y"),X("x y")) \