[svn] r7250: nemerle/trunk/snippets/sioux/csl04: csl.n submission.n

[malekith]

Log:
Make it compile too.

Author: malekith
Date: Thu Jan 11 16:40:32 2007
New Revision: 7250

Modified:
   nemerle/trunk/snippets/sioux/csl04/csl.n
   nemerle/trunk/snippets/sioux/csl04/submission.n

Modified: nemerle/trunk/snippets/sioux/csl04/csl.n
==============================================================================
--- nemerle/trunk/snippets/sioux/csl04/csl.n	(original)
+++ nemerle/trunk/snippets/sioux/csl04/csl.n	Thu Jan 11 16:40:32 2007
@@ -35,8 +35,6 @@
   using System.Xml;
   using System.Xml.Xsl;
 
-  using Sioux;
-     
 
   /**
    * The CSL web application
@@ -60,7 +58,7 @@
     /**
      *
      */
-    public ServePage (page_handler : option <XmlTemplate -> XmlTemplate>,
+    public ServePage (page_handler : option [XmlTemplate -> XmlTemplate],
                       xml_file_name : option [string], 
                       xsl_file_name : option [string]) : void
     {
@@ -244,15 +242,15 @@
       for (mutable i = 49; i >= 0; i = i - 1) {
         try {
           System.IO.File.Delete (sprintf ("csl04/data/data.xml.%d", i + 1))
-        } catch { _ : System.Exception => () };
+        } catch { _ is System.Exception => () };
         try {
           System.IO.File.Move (sprintf ("csl04/data/data.xml.%d", i),
                               sprintf ("csl04/data/data.xml.%d", i + 1))
-        } catch { _ : System.Exception => () };
+        } catch { _ is System.Exception => () };
       };
       try {
         System.IO.File.Move ("csl04/data/data.xml", "csl04/data/data.xml.0");
-      } catch { _ : System.Exception => () };
+      } catch { _ is System.Exception => () };
     }
 
     static serialize () : void
@@ -301,7 +299,7 @@
 
     mutable admin_mode : bool;
     
-    override protected virtual DoGet () : void
+    override protected DoGet () : void
     {
       when (PageName.StartsWith (secret_password)) {
         PageName = PageName.Substring (secret_password.Length);
@@ -331,7 +329,7 @@
       }
     }
 
-    override protected virtual DoPost() : void
+    override protected DoPost() : void
     {
         DoGet()
     }
@@ -352,7 +350,7 @@
       try {
         unserialize ()
       } catch {
-        | _ : System.IO.FileNotFoundException => ()
+        | _ is System.IO.FileNotFoundException => ()
       };
       
       serialize ();

Modified: nemerle/trunk/snippets/sioux/csl04/submission.n
==============================================================================
--- nemerle/trunk/snippets/sioux/csl04/submission.n	(original)
+++ nemerle/trunk/snippets/sioux/csl04/submission.n	Thu Jan 11 16:40:32 2007
@@ -34,8 +34,6 @@
   using System.Xml;
   using System.Xml.Xsl;
 
-  using Sioux;
-
 
   /**
    * The submissions class