Mercurial > repos > rhope

comparison list.rhope @ 97:fa437d23bb24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix memory corruption bug
author Mike Pavone <pavone@retrodev.com>
date Tue, 03 Aug 2010 22:38:25 -0400
parents 5a08705f7610
children f51c4c17457c
comparison
equal deleted inserted replaced
96:5a08705f7610 97:fa437d23bb24
317 Print@List Leaf[list:out] 317 Print@List Leaf[list:out]
318 { 318 {
319 If[[[list]Buffer >>]Length] 319 If[[[list]Buffer >>]Length]
320 { 320 {
321 Print["List"] 321 Print["List"]
322 { _Print Seq[list, [list]First] } 322 { out <- _Print Seq[list, [list]First] }
323 }{ 323 }{
324 Print["List\n\t{Empty}"] 324 out <- Print["List\n\t{Empty}"]
325 } 325 }
326 } 326 }
327 327
328 Print@List[list:out] 328 Print@List[list:out]
329 { 329 {
330 Print["List"] 330 Print["List"]
331 { _Print Seq[list, [list]First] } 331 { out <- _Print Seq[list, [list]First] }
332 } 332 }
333 333