Mercurial > repos > rhope
diff extendlib.rhope @ 48:a24eb366195c
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[