[SCM] Lisaac compiler branch, mildred-stable, updated. mildred-r4

[Mildred Ki'Lya]

The following commit has been merged in the mildred-stable branch:
commit 7a1e4e16d5ecc7db9068a7fde138b4745ef8966a
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Fri May 6 12:19:25 2011 +0200

    debug

diff --git a/src/any.li b/src/any.li
index ead89eb..f32e3d7 100644
--- a/src/any.li
+++ b/src/any.li
@@ -497,6 +497,27 @@ Section Public
     LIP_CODE.put_string path_lisaac to (ALIAS_STR.variable_lisaac);
   );
 
+  - debug_print_execute_trace <-
+  (
+    (loop_list != NULL).if {
+      "======== LOOP LIST =========".println;
+      loop_list.position.debug_println;
+    };
+    (list_main != NULL).if {
+      "======== LIST MAIN =========".println;
+      list_main.position.debug_println;
+    };
+    (list_current != NULL).if {
+      "======= LIST CURRENT =======".println;
+      list_current.position.debug_println;
+    };
+    "========== BOTTOM ==========".println;
+    seq_list.lower.to (seq_list.upper) do { i:INTEGER;
+      seq_list.item i.position.debug_println;
+    };
+    "=========== TOP ============".println;
+  );
+
   //
   // Activate debug
   //
diff --git a/src/external/put_to.li b/src/external/put_to.li
index 9078715..3c1a415 100644
--- a/src/external/put_to.li
+++ b/src/external/put_to.li
@@ -83,6 +83,10 @@ Section Public
 
   - remove <-
   (
+    warning_error (position, "PUT_TO.remove");
+    // ? { variable.dynamic_type = VARIABLE };
+    // This will crash every time (deferred slot in VARIABLE)
+    // warning (position, "Prevent crash, undo remove of PUT_TO");
     variable.unwrite Self;
     //
     receiver.remove;
diff --git a/src/tools/position.li b/src/tools/position.li
index 42a2240..9bbd915 100644
--- a/src/tools/position.li
+++ b/src/tools/position.li
@@ -182,6 +182,14 @@ Section Public
     };
     STRING.create_from_string string_tmp
   );
+  
+  - debug_println <-
+  (
+    msg_err.clear;
+    put_position;
+    msg_err.println;
+    msg_err.clear;
+  );
 
 Section Private
 

-- 
Lisaac compiler