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

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

Revision: 667
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=667&view=rev
Author:   agraef
Date:     2008-08-30 19:51:11 +0000 (Sat, 30 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-30 19:37:11 UTC (rev 666)
+++ pure/trunk/lib/primitives.pure	2008-08-30 19:51:11 UTC (rev 667)
@@ -23,17 +23,6 @@
 
 extern void pure_throw(expr*) = throw; // IMPURE!
 
-/* Sentries. These are expression "guards" which are applied to the target
-   expression when it is garbage-collected. The sentry function places a
-   sentry at an expression (and returns the modified expression), clear_sentry
-   removes, get_sentry returns it. NOTE: In the current implementation
-   sentries can only be placed at applications and pointer objects. The sentry
-   itself can be any type of object (but usually it's a function). */
-
-extern expr* pure_sentry(expr*,expr*) = sentry; // IMPURE!
-extern expr* pure_clear_sentry(expr*) = clear_sentry; // IMPURE!
-extern expr* pure_get_sentry(expr*) = get_sentry;
-
 /* Syntactic equality. */
 
 extern bool same(expr* x, expr* y);
@@ -424,3 +413,14 @@
 put_string x::pointer y::string = pointer_put_string x y;
 put_pointer x::pointer y::string = pointer_put_pointer x y;
 put_pointer x::pointer y::pointer = pointer_put_pointer x y;
+
+/* Sentries. These are expression "guards" which are applied to the target
+   expression when it is garbage-collected. The sentry function places a
+   sentry at an expression (and returns the modified expression), clear_sentry
+   removes, get_sentry returns it. NOTE: In the current implementation
+   sentries can only be placed at applications and pointer objects. The sentry
+   itself can be any type of object (but usually it's a function). */
+
+extern expr* pure_sentry(expr*,expr*) = sentry; // IMPURE!
+extern expr* pure_clear_sentry(expr*) = clear_sentry; // IMPURE!
+extern expr* pure_get_sentry(expr*) = get_sentry;


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