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

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

Revision: 483
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=483&view=rev
Author:   agraef
Date:     2008-08-13 12:43:41 +0000 (Wed, 13 Aug 2008)

Log Message:
-----------
Simplified signal handler.

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

Modified: pure/trunk/examples/signal.pure
===================================================================
--- pure/trunk/examples/signal.pure	2008-08-13 12:37:02 UTC (rev 482)
+++ pure/trunk/examples/signal.pure	2008-08-13 12:43:41 UTC (rev 483)
@@ -19,7 +19,7 @@
 
 loop = loop when _ = catch sig check end
 with
-  sig (signal k) = loop when _ = printf "Hey, I got signal %d.\n" k end;
+  sig (signal k) = printf "Hey, I got signal %d.\n" k;
 end;
 
 /* Take a short nap so that the loop doesn't run busily. This also serves the


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