[pure-lang-svn] SF.net SVN: pure-lang: [111] pure/trunk/test

[<ag...@us...>]

Revision: 111
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=111&view=rev
Author:   agraef
Date:     2008-05-22 22:23:01 -0700 (Thu, 22 May 2008)

Log Message:
-----------
Fix premature freeing of eval result. Add regression test.

Modified Paths:
--------------
    pure/trunk/test/test010.log
    pure/trunk/test/test010.pure

Modified: pure/trunk/test/test010.log
===================================================================
--- pure/trunk/test/test010.log	2008-05-23 05:18:37 UTC (rev 110)
+++ pure/trunk/test/test010.log	2008-05-23 05:23:01 UTC (rev 111)
@@ -1,3 +1,8 @@
 \x -> x!0==[0,1,0,0];
 eval "(\\x -> (x!0) == [0,1,0,0])" [[0,1,0,0],[1,1,2]];
 1
+1.2;
+-4;
+that;
+map eval ["1.2","-4","that"];
+[1.2,-4,that]

Modified: pure/trunk/test/test010.pure
===================================================================
--- pure/trunk/test/test010.pure	2008-05-23 05:18:37 UTC (rev 110)
+++ pure/trunk/test/test010.pure	2008-05-23 05:23:01 UTC (rev 111)
@@ -1,2 +1,3 @@
 
 eval "(\\x -> (x!0) == [0,1,0,0])" [[0,1,0,0],[1,1,2]];
+map (eval) ["1.2","-4","that"];


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.