[pure-lang-svn] SF.net SVN: pure-lang:[472] pure/trunk/examples/libor/date.pure

[<ye...@us...>]

Revision: 472
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=472&view=rev
Author:   yes
Date:     2008-08-12 13:28:56 +0000 (Tue, 12 Aug 2008)

Log Message:
-----------
Improved timex in date.pure, now works with the latest Pure fix

Modified Paths:
--------------
    pure/trunk/examples/libor/date.pure

Modified: pure/trunk/examples/libor/date.pure
===================================================================
--- pure/trunk/examples/libor/date.pure	2008-08-12 12:56:14 UTC (rev 471)
+++ pure/trunk/examples/libor/date.pure	2008-08-12 13:28:56 UTC (rev 472)
@@ -31,8 +31,9 @@
 mstime = 1000.0*gettimeofday; 
 mscpu  = 1000.0*clock/CLOCKS_PER_SEC;
 
-// timex returns a list: [ evaluated string argument, cputime, realtime ]
-timex s::string = [(eval s), round (mscpu-c0), round (mstime-d0)] 
+/* timex returns a list: [ evaluated closure, cputime, realtime ]
+   call with closure argument: (timex (\_ -> sumefunction some arguments)) */
+timex f = (f ()), (round (mscpu-c0)), (round (mstime-d0)) 
    when d0::double = mstime; c0::double = mscpu end;
       
 /* extended mod operator to work on doubles, so that int, bigint and double 


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