diff 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
line wrap: on
line diff
--- a/list.rhope	Mon Aug 02 05:12:19 2010 -0400
+++ b/list.rhope	Tue Aug 03 22:38:25 2010 -0400
@@ -319,15 +319,15 @@
 	If[[[list]Buffer >>]Length]
 	{
 		Print["List"]
-		{ _Print Seq[list, [list]First] }
+		{ out <- _Print Seq[list, [list]First] }
 	}{
-		Print["List\n\t{Empty}"]
+		out <- Print["List\n\t{Empty}"]
 	}	
 }
 
 Print@List[list:out]
 {
 	Print["List"]
-	{ _Print Seq[list, [list]First] }
+	{ out <- _Print Seq[list, [list]First] }
 }