Mercurial > repos > rhope
comparison list.rhope @ 97:fa437d23bb24
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 |