[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-469-ga87bbfe

[Mildred Ki'Lya]

The following commit has been merged in the master branch:
commit 07596477225ae443a18dd0da971a0fbc3af7636b
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Mon Sep 7 12:15:01 2009 +0200

    jeremy bug print_char and mildred == ok

diff --git a/lib/base/boolean.li b/lib/base/boolean.li
index a5ac509..968d70d 100644
--- a/lib/base/boolean.li
+++ b/lib/base/boolean.li
@@ -76,6 +76,10 @@ Section Public
   //
   // Binary operator :
   //
+
+  - Self:SELF '=='  Right 60 other:SELF :BOOLEAN <- Self = other;
+  
+  - Self:SELF '!==' Right 60 other:SELF :BOOLEAN <- Self != other;
   
   - Self:SELF '||' Left 10  other:{BOOLEAN}   :BOOLEAN <- deferred_boolean;
   
diff --git a/lib/base/false.li b/lib/base/false.li
index dfca9fb..4d7d2a2 100644
--- a/lib/base/false.li
+++ b/lib/base/false.li
@@ -87,10 +87,6 @@ Section Public
   // Binary operator :
   //
   
-  - Self:SELF '=='  Right 60 other:BOOLEAN :BOOLEAN <- ! other;
-  
-  - Self:SELF '!==' Right 60 other:BOOLEAN :BOOLEAN <- other;
-  
   - Self:SELF '||'  Left 10  other:{BOOLEAN}   :BOOLEAN <- other.value;
   
   - Self:SELF '&&'  Left 20  other:{BOOLEAN}   :BOOLEAN <- FALSE;
diff --git a/lib/base/true.li b/lib/base/true.li
index 1581ae1..e57be8a 100644
--- a/lib/base/true.li
+++ b/lib/base/true.li
@@ -75,11 +75,7 @@ Section Public
   //
   // Binary operator :
   //
-  
-  - Self:SELF '=='  Right 60 other:BOOLEAN :BOOLEAN <- other;
-  
-  - Self:SELF '!==' Right 60 other:BOOLEAN :BOOLEAN <- ! other;
-  
+    
   - Self:SELF '||'  Left 10  other:{BOOLEAN}   :BOOLEAN <- TRUE;   // or else
   
   - Self:SELF '&&'  Left 20  other:{BOOLEAN}   :BOOLEAN <- other.value;  // and then
diff --git a/src/lisaac.li b/src/lisaac.li
index b195518..1194aa3 100644
--- a/src/lisaac.li
+++ b/src/lisaac.li
@@ -583,6 +583,10 @@ Section Private
     type_n_a_n_a_character := ITM_TYPE_GENERIC.get (ALIAS_STR.prototype_native_array)
     style NULL with type_gen.to_run_for NULL.raw;
     //    
+    (debug_level_option != 0).if {
+      // Load for `print_char' and `die_with_code'
+      ITM_TYPE_SIMPLE.get (ALIAS_STR.prototype_system_io).to_run_for NULL;
+    };
     ? {type_input != NULL};
   );
   
diff --git a/src/tools/alias_str.li b/src/tools/alias_str.li
index 908dda1..e85191d 100644
--- a/src/tools/alias_str.li
+++ b/src/tools/alias_str.li
@@ -106,6 +106,7 @@ Section Public
   - prototype_n_a_character   :STRING_CONSTANT := "NATIVE_ARRAY__CHARACTER";
   - prototype_n_a_n_a_character:STRING_CONSTANT := 
   "NATIVE_ARRAY__NATIVE_ARRAY__CHARACTER";
+  - prototype_system_io       :STRING_CONSTANT := "SYSTEM_IO";
   
   - variable_self          :STRING_CONSTANT := "Self";  
   - variable_context       :STRING_CONSTANT := "__pos";
@@ -394,8 +395,10 @@ Section Public
     list.add prototype_integer_32;
     list.add prototype_integer_16;
     list.add prototype_integer_8;
+    //
     list.add prototype_n_a_character;
     list.add prototype_n_a_n_a_character;    
+    list.add prototype_system_io;
     
     // Les variables de base :
     list.add variable_self;    

-- 
Lisaac compiler