From cf5568f7b49370083c48ba0abdb46674c4f739da Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 3 Oct 2001 09:06:23 +0000
Subject: changed from system to definition module added array copy macro

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@816 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/_aconcat.dcl | 8 +++++++-
 frontend/_aconcat.icl | 5 +++++
 2 files changed, 12 insertions(+), 1 deletion(-)

(limited to 'frontend')

diff --git a/frontend/_aconcat.dcl b/frontend/_aconcat.dcl
index 267c305..f95aab7 100644
--- a/frontend/_aconcat.dcl
+++ b/frontend/_aconcat.dcl
@@ -1,4 +1,4 @@
-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
diff --git a/frontend/_aconcat.icl b/frontend/_aconcat.icl
index 4e3e47d..cf6abc1 100644
--- a/frontend/_aconcat.icl
+++ b/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
-- 
cgit v1.2.3