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]