[SCM] Lisaac compiler branch, stable, updated. lisaac-0.12-557-g657254e

Mildred Ki'Lya silkensedai at online.fr
Sat Oct 24 13:29:35 UTC 2009


The following commit has been merged in the stable branch:
commit 657254e77696ab453d4058edf5b614855f957b7e
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Sat Oct 24 15:29:13 2009 +0200

    Fix ABSTRACT_STRING.println

diff --git a/lib/string/abstract_string.li b/lib/string/abstract_string.li
index dfd2615..72e7b00 100644
--- a/lib/string/abstract_string.li
+++ b/lib/string/abstract_string.li
@@ -944,7 +944,7 @@ Section Public
     result
   )
   [
-    +? {Result.count = count + other.count};
+    +? {Result.count = Old count + other.count};
   ];
     
   - as_lower:STRING <-
@@ -1265,6 +1265,8 @@ Section Public
   (
     STRING.create_from_string Self
   );
+
+  - to_abstract_string :ABSTRACT_STRING <- Self;
   
   - string_buffer:STRING := STRING.create 256; // Private, temporary once buffer.
   
@@ -1291,9 +1293,9 @@ Section Public
   );
   
   - println <-
-  [ -? {storage.item count = '\0'}; ]
   (
-    to_external.println;
+    print;
+    '\n'.print;
   );
   
   //
diff --git a/lib/string/string_constant.li b/lib/string/string_constant.li
index 2817305..eaac501 100644
--- a/lib/string/string_constant.li
+++ b/lib/string/string_constant.li
@@ -106,6 +106,14 @@ Section Public
     };
   );
 
+  - println <-
+  [
+    -? {storage.item count = '\0'};
+  ]
+  (
+    to_external.println;
+  );
+
   //
   // Debug: Require / Ensure / Check
   //
@@ -116,4 +124,3 @@ Section Public
   
   - Self:SELF '+?' test:{BOOLEAN} <- test +? Self;
     
-

-- 
Lisaac compiler



More information about the Lisaac-commits mailing list