Mercurial > repos > rhope
diff extendlib.rhope @ 19:90c20dc3f4e5
Initial work on compiling dataflow graphs to a backend
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 27 May 2009 21:29:15 +0000 |
parents | 23dd9c766699 |
children | 8b2b3f4a2a58 |
line wrap: on
line diff
--- a/extendlib.rhope Wed May 27 04:49:32 2009 -0400 +++ b/extendlib.rhope Wed May 27 21:29:15 2009 +0000 @@ -594,7 +594,7 @@ not found <- text } } - + Blueprint Range { Start @@ -606,9 +606,14 @@ out <- [[Build["Range"]]Start <<[start]]End <<[end] } -First@Range[range:out] +First@Range[range:out,none] { - out <- [range]Start >> + If[[[range]Start >>] < [[range]End >>]] + { + out <- [range]Start >> + }{ + none <- range + } } Next@Range[range,val:out,done] @@ -637,3 +642,5 @@ } } + +