Mercurial > repos > rhope
diff dict.rhope @ 97:fa437d23bb24
fix memory corruption bug
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 03 Aug 2010 22:38:25 -0400 |
parents | e73a93fb5de1 |
children | e09c2d1d6d5b |
line wrap: on
line diff
--- a/dict.rhope Mon Aug 02 05:12:19 2010 -0400 +++ b/dict.rhope Tue Aug 03 22:38:25 2010 -0400 @@ -238,14 +238,14 @@ } } -_Print Seq[dict,key] +_Print Seq[dict,key:out] { val <- String[[dict]Index[key]] Print[ [[["\t"]Append[String[key]]]Append[":\t"]]Append[val] ] { - [dict]Next[key] + ,out <- [dict]Next[key] { - _Print Seq[dict, ~] + out <- _Print Seq[dict, ~] } } } @@ -253,12 +253,12 @@ Print@Dictionary[dict:out] { Print["Dictionary"] - { _Print Seq[dict, [dict]First] } + { out <- _Print Seq[dict, [dict]First] } } Print@Empty Dictionary[dict:out] { - Print["Dictionary\n\t{Empty}"] + out <- Print["Dictionary\n\t{Empty}"] } Length@Empty Dictionary[dict:out]