changed from system to definition module

added array copy macro

frontend/_aconcat.dcl

-system module _aconcat
+definition module _aconcat
 
 import StdArray,StdInt,StdEnum,StdList
 
@@ -59,3 +59,9 @@ where
 			# (e,a1) = a1![i]
 			= copy_elements a1 {a2 & [i]=e} (i+1)
 			= (a2,a1)
+
+arrayCopy a s
+	:== arrayCopyBegin a1 s
+	where
+		(s, a1)
+			=	usize a

frontend/_aconcat.icl

@@ -59,3 +59,8 @@ where
 			# (e,a1) = a1![i]
 			= copy_elements a1 {a2 & [i]=e} (i+1)
 			= (a2,a1)
+arrayCopy a s
+	:== arrayCopyBegin a1 s
+	where
+		(s, a1)
+			=	usize a