[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-470-g24935e5

[Benoit Sonntag]

The following commit has been merged in the master branch:
commit 24935e5f38277ccff344a550658f8a6e2aacfa92
Author: Benoit Sonntag <sonntag at mordred.u-strasbg.fr>
Date:   Mon Sep 7 17:01:36 2009 +0200

    bug mildred desk -> home

diff --git a/lib/base/boolean.li b/lib/base/boolean.li
index 968d70d..411bd86 100644
--- a/lib/base/boolean.li
+++ b/lib/base/boolean.li
@@ -134,6 +134,8 @@ Section Public
   // Output.
   //
   
+  - bug:CHARACTER <- ( 'M' );
+  
   - print <-
   (
     deferred;
diff --git a/lib/base/false.li b/lib/base/false.li
index 4d7d2a2..d61d447 100644
--- a/lib/base/false.li
+++ b/lib/base/false.li
@@ -120,7 +120,9 @@ Section Public
   - to_integer:INTEGER     <- 0;
   
   - to_character:CHARACTER <- '0';
-
+  
+   - bug:CHARACTER <- ( '0' );
+  
   //
   // Output.
   //
diff --git a/lib/kernel/object.li b/lib/kernel/object.li
index 3e3f1e6..f232377 100644
--- a/lib/kernel/object.li
+++ b/lib/kernel/object.li
@@ -173,6 +173,11 @@ Section Public
     to_string.println; 
   );
   
+  - println_bug <-
+  (
+    bug.print;
+  );
+  
   - dynamic_type:SELF <- SELF;
   
   - same_dynamic_type other:OBJECT :BOOLEAN <-
diff --git a/src/dispatcher/node_type.li b/src/dispatcher/node_type.li
index 7128f9f..196a69a 100644
--- a/src/dispatcher/node_type.li
+++ b/src/dispatcher/node_type.li
@@ -131,6 +131,12 @@ Section Private
         };
         */
         
+        (typ_f.raw = type_boolean).if {          
+          lst_typ.print;
+          '\n'.print;
+          warning_error (position,"ICI");
+        };
+        
 	(! lst_typ.is_empty).if {
 	  (lst_typ.count = 1).if {
 	    (first_code = NULL).if {
diff --git a/example/tiny_object/instr.li b/src/hello.li
similarity index 86%
copy from example/tiny_object/instr.li
copy to src/hello.li
index c013fa3..6bb0b4f 100644
--- a/example/tiny_object/instr.li
+++ b/src/hello.li
@@ -1,5 +1,5 @@
 ///////////////////////////////////////////////////////////////////////////////
-//                             Lisaac Example                                //
+//                             Lisaac Compiler                               //
 //                                                                           //
 //                   LSIIT - ULP - CNRS - INRIA - FRANCE                     //
 //                                                                           //
@@ -20,17 +20,24 @@
 ///////////////////////////////////////////////////////////////////////////////
 Section Header
   
-  + name      := INSTR;
+  + name      := HELLO;
 
-  - copyright := "2003-2008 Sonntag Benoit";
+  - copyright := "2003-2009 Sonntag Benoit";
 
   - author    := "Sonntag Benoit (sonntag at icps.u-strasbg.fr)";
   - comment   := "The main prototype";
 
 Section Inherit
 
-  - parent_any:ANY := ANY;
+  - parent_object:OBJECT := OBJECT;
 
 Section Public
 
-  + position:INTEGER;
\ No newline at end of file
+  - main <-
+  ( + var:BOOLEAN;
+    var := FALSE;
+    var.println_bug;
+    '\n'.print;
+    
+  );
+

-- 
Lisaac compiler