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 |