Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
47:6202b866d72c | 48:a24eb366195c |
---|---|
23 Map[list,worker:out] | 23 Map[list,worker:out] |
24 { | 24 { |
25 [list]First | 25 [list]First |
26 { | 26 { |
27 out <- _Map[list, ~, worker] | 27 out <- _Map[list, ~, worker] |
28 }{ | |
29 out <- list | |
30 } | |
31 } | |
32 | |
33 _SMap[list,index,worker:out] | |
34 { | |
35 newval <- [ | |
36 [worker]Do[ | |
37 [()]Append[ [list]Index[index] ] | |
38 ] | |
39 ]Index[0] | |
40 | |
41 [list]Next[index] | |
42 { | |
43 out <- _SMap[[list]Set[index, newval], ~, worker] | |
44 }{ | |
45 out <- [list]Set[index, newval] | |
46 } | |
47 } | |
48 | |
49 SMap[list,worker:out] | |
50 { | |
51 [list]First | |
52 { | |
53 out <- _SMap[list, ~, worker] | |
28 }{ | 54 }{ |
29 out <- list | 55 out <- list |
30 } | 56 } |
31 } | 57 } |
32 | 58 |