[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-391-gb8e3f04

[Benoit Sonntag]

The following commit has been merged in the master branch:
commit b8e3f0473f43dfb4b7becb8f90ef11f849114af8
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date:   Tue Aug 11 06:02:05 2009 +0200

    UNSTABLE 2 ;-)

diff --git a/src2/aliaser_local.li b/src2/aliaser_local.li
index 8c417c6..da59935 100644
--- a/src2/aliaser_local.li
+++ b/src2/aliaser_local.li
@@ -72,13 +72,19 @@ Section Public
 
   - read rd:READ_LOCAL :STRING_CONSTANT <-
   ( + loc,loc2:LOCAL;
+    + result:STRING_CONSTANT;
     
     loc := rd.local;
-    loc.unread rd;
     loc2 := loc.my_alias;
-    ((loc.ensure_count = 0) && {current_list_level <= loc.list_level}).if {
-      free.add_last loc2;
+    (loc2 = NULL).if {
+      result := loc.intern_name;
+    } else {      
+      loc.unread rd;    
+      ((loc.ensure_count = 0) && {current_list_level <= loc.list_level}).if {
+        free.add_last loc2;
+      };
+      result := loc2.intern_name;
     };
-    loc2.intern_name
+    result
   );
   
\ No newline at end of file

-- 
Lisaac compiler