[pure-lang-svn] SF.net SVN: pure-lang:[475] pure/trunk/lib/primitives.pure

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

Revision: 475
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=475&view=rev
Author:   agraef
Date:     2008-08-12 19:17:34 +0000 (Tue, 12 Aug 2008)

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

Modified Paths:
--------------
    pure/trunk/lib/primitives.pure

Modified: pure/trunk/lib/primitives.pure
===================================================================
--- pure/trunk/lib/primitives.pure	2008-08-12 13:59:55 UTC (rev 474)
+++ pure/trunk/lib/primitives.pure	2008-08-12 19:17:34 UTC (rev 475)
@@ -21,8 +21,7 @@
 
 /* Throw an exception. */
 
-extern void pure_throw(expr*); // IMPURE!
-throw x		= pure_throw x;
+extern void pure_throw(expr*) = throw; // IMPURE!
 
 /* Convenience function to ensure a condition p. Returns 1 (true) if p holds,
    and throws the given exception e otherwise. */


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