Mercurial > repos > rhope
diff list.rhope @ 100:f51c4c17457c
Broken port of parser to compiler
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 09 Aug 2010 02:03:57 -0400 |
parents | fa437d23bb24 |
children | f4fc0a98088a |
line wrap: on
line diff
--- a/list.rhope Fri Aug 06 01:42:37 2010 -0400 +++ b/list.rhope Mon Aug 09 02:03:57 2010 -0400 @@ -331,3 +331,25 @@ { out <- _Print Seq[list, [list]First] } } + +Peek@List[list:out,empty] +{ + [list]Last + { + out <- [list]Index[~] + }{ + empty <- list + } +} + +Peek@List Leaf[list:out,empty] +{ + [list]Last + { + out <- [list]Index[~] + }{ + empty <- list + } +} + +