Mercurial > repos > rhope

diff extendlib.rhope @ 48:a24eb366195c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed some bugs introduced in previous commit and moved definition of integer methods out of runtime and into the compiler
author Mike Pavone <pavone@retrodev.com>
date Tue, 02 Mar 2010 00:18:49 -0500
parents 6202b866d72c
children d0ce696786cc
line wrap: on
line diff
--- a/extendlib.rhope	Tue Dec 22 01:22:09 2009 -0500
+++ b/extendlib.rhope	Tue Mar 02 00:18:49 2010 -0500
@@ -30,6 +30,32 @@
 	}
 }
 
+_SMap[list,index,worker:out]
+{
+	newval <- [
+		[worker]Do[  
+			[()]Append[ [list]Index[index] ]
+		]
+	]Index[0]
+	
+	[list]Next[index]
+	{
+		out <- _SMap[[list]Set[index, newval], ~, worker]
+	}{
+		out <- [list]Set[index, newval]
+	}
+}
+
+SMap[list,worker:out]
+{
+	[list]First
+	{
+		out <- _SMap[list, ~, worker]
+	}{
+		out <- list
+	}
+}
+
 _Key Value Map[list,index,newlist,worker:out]
 {
 	[worker]Do[