[pure-lang-svn] SF.net SVN: pure-lang:[529] pure/trunk/examples

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

Revision: 529
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=529&view=rev
Author:   agraef
Date:     2008-08-18 07:43:01 +0000 (Mon, 18 Aug 2008)

Log Message:
-----------
Cosmetic changes.

Modified Paths:
--------------
    pure/trunk/examples/recursive.pure
    pure/trunk/examples/signal.pure

Modified: pure/trunk/examples/recursive.pure
===================================================================
--- pure/trunk/examples/recursive.pure	2008-08-18 07:26:36 UTC (rev 528)
+++ pure/trunk/examples/recursive.pure	2008-08-18 07:43:01 UTC (rev 529)
@@ -39,10 +39,10 @@
 using system;
 
 main n::int
-= printf "Ack(3,%d): %d\n" (n, ack 3 n),
-  printf "Fib(%.1f): %.1f\n" (27.0+n, fib (27.0+n)),
-  printf "Tak(%d,%d,%d): %d\n" (m*3, m*2, m, tak (m*3) (m*2) m),
-  printf "Fib(3): %d\n" (fib 3),
+= printf "Ack(3,%d): %d\n" (n, ack 3 n) $$
+  printf "Fib(%.1f): %.1f\n" (27.0+n, fib (27.0+n)) $$
+  printf "Tak(%d,%d,%d): %d\n" (m*3, m*2, m, tak (m*3) (m*2) m) $$
+  printf "Fib(3): %d\n" (fib 3) $$
   printf "Tak(3.0,2.0,1.0): %.1f\n" (tak 3.0 2.0 1.0)
 when m = n-1 end;
 

Modified: pure/trunk/examples/signal.pure
===================================================================
--- pure/trunk/examples/signal.pure	2008-08-18 07:26:36 UTC (rev 528)
+++ pure/trunk/examples/signal.pure	2008-08-18 07:43:01 UTC (rev 529)
@@ -15,10 +15,9 @@
 /* Running this function enters an endless loop reporting all signals
    delivered to the process. */
 
-test = printf "Running as pid %d, try to kill me!\n" getpid, loop;
+test = printf "Running as pid %d, try to kill me!\n" getpid $$ loop;
 
-loop = loop when _ = catch sig check end
-with
+loop = catch sig check $$ loop with
   sig (signal k) = printf "Hey, I got signal %d.\n" k;
 end;
 


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