Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 99:e09c2d1d6d5b | 100:f51c4c17457c |
|---|---|
| 329 { | 329 { |
| 330 Print["List"] | 330 Print["List"] |
| 331 { out <- _Print Seq[list, [list]First] } | 331 { out <- _Print Seq[list, [list]First] } |
| 332 } | 332 } |
| 333 | 333 |
| 334 | |
| 335 Peek@List[list:out,empty] | |
| 336 { | |
| 337 [list]Last | |
| 338 { | |
| 339 out <- [list]Index[~] | |
| 340 }{ | |
| 341 empty <- list | |
| 342 } | |
| 343 } | |
| 344 | |
| 345 Peek@List Leaf[list:out,empty] | |
| 346 { | |
| 347 [list]Last | |
| 348 { | |
| 349 out <- [list]Index[~] | |
| 350 }{ | |
| 351 empty <- list | |
| 352 } | |
| 353 } | |
| 354 | |
| 355 |