Fix compile problems due to Anubis lexical change

Cédric RICARD
1 parent c0e3a410
Showing 3 changed files with 7 additions and 7 deletions Show diff stats
calexium_lib/net_services/CXM_net_services.anubis
calexium_lib/web/CXM_http_get_common.anubis
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -49,7 +49,7 @@ define Maybe(NetService)
   if services_list is
   {
     []    then failure,
-    [h.t] then
+    [h . t] then
       if h.id = service_id & h.version >=+ service_version then
         success(h)
       else
@@ -56,7 +56,7 @@ public define String
         if t is 
           {
             [ ]     then if h is http_argument(n,v) then n + "=" + v,
-            [_._]   then if h is http_argument(n,v) then n + "=" + v + "&" + format_http_args(t)
+            [_ . _]   then if h is http_argument(n,v) then n + "=" + v + "&" + format_http_args(t)
           }
     }.
@@ -2999,7 +2999,7 @@ public define String
   if attributs is
   {
     []      then "",
-    [h .t]  then 
+    [h . t]  then 
       with current = if h is
       {
         id(id_name)          then
@@ -3043,7 +3043,7 @@ define String
   if attributs is
   {
     []      then "",
-    [h .t]  then 
+    [h . t]  then 
       with current = if h is
       {
         class(class_name) then
@@ -3088,13 +3088,13 @@ define String
   if text_options is 
   {
     []    then "",
-    [_._] then " style=\"" + format(text_options) + "\" "
+    [_ . _] then " style=\"" + format(text_options) + "\" "
   }
   +
   if css_classes is 
   {
     []    then "",
-    [_._] then format_attrs(css_classes)
+    [_ . _] then format_attrs(css_classes)
   }.
 //define String
@@ -4227,7 +4227,7 @@ define Printable_tree
   if css_styles is
   {
     [] then [],
-    [_._] then [ "<style type=\"text/css\"><!--\n",
+    [_ . _] then [ "<style type=\"text/css\"><!--\n",
                   format_css_styles(css_styles), 
                  "  --></style>\n"
                ]