picolisp

commit b95fdca390677624764042c84b458804729f8ccf
parent 4f4c96f65b61da9376e895637251d180a55caa72
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 13 Apr 2012 13:12:30 +0200

Allow 'zap' protected symbols outside 'pico' namespace
Diffstat:
M
CHANGES
 | 
1
+
M
src64/sym.l
 | 
13
++++++++-----

2 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * DDmmm12 picoLisp-3.1.1
+   Allow 'zap' protected symbols outside 'pico' namespace (64-bit)
    Bug in 'who'
 
 * 10apr12 picoLisp-3.1.0
diff --git a/src64/sym.l b/src64/sym.l
@@ -1,4 +1,4 @@
-# 22mar12abu
+# 13apr12abu
 # (c) Software Lab. Alexander Burger
 
 ### Compare long names ###
@@ -1197,10 +1197,13 @@
    if nz  # Yes
       call dbZapE  # Mark as "deleted"
    else
-      cmp E Nil  # Between 'NIL' and '*Bye'?
-      if ge
-         cmp E Bye
-         jle protErrEX  # Yes
+      cmp (EnvIntern) pico  # Inside 'pico'?
+      if eq  # Yes
+         cmp E Nil  # Between 'NIL' and '*Bye'?
+         if ge
+            cmp E Bye
+            jle protErrEX  # Yes
+         end
       end
       push Y
       ld X (E TAIL)