--- a/array.rhope	Sun Nov 21 17:10:49 2010 -0500
+++ b/array.rhope	Sun Nov 21 18:21:45 2010 -0500
@@ -222,6 +222,32 @@
 	}
 }
 
+Slice@Array[array,slicepoint:left,right]
+{
+	If[[slicepoint]<=[0]]
+	{
+		left <- Array[]
+		right <- array
+	}{
+		arrlen <- [array]Length >>
+		If[[slicepoint]>=[arrlen]]
+		{
+			left <- array
+			right <- Array[]
+		}{
+			left <- [_internal_array_copychunk[array, 0, _internal_array_allocnaked[slicepoint,[array]Eltype >>], 0, slicepoint]]Length <<[slicepoint]
+			rightlen <- [arrlen]-[slicepoint]
+			right <- [_internal_array_copychunk[array, slicepoint, _internal_array_allocnaked[rightlen,[array]Eltype >>], 0, rightlen]]Length <<[rightlen]
+		}
+	}
+}
+
+Slice@Empty Array[array,slicepoint:left,right]
+{
+	left <- array
+	right <- array
+}
+
 Length@Empty Array[arr:out]
 {
 	out <- 0