From 0204a2e9c993ee408d769cc6e2f91506b5699c81 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 4 Oct 2011 00:01:48 +0000
Subject: 	* boot/utility.boot (symbolAssoc): Rename from assocSymbol.
 Export. 	* interp/functor.boot: Remove getAbbreviation, mkAbbrev,
 addsuffix. 	* interp/sys-utility.boot (symbolAssoc): Remove as redundant. 
 (scalarTarget): New. 	* interp/bc-matrix.boot: Use symbolTarget instead of
 symbolLassoc. 	* interp/br-con.boot: Use QLASSQ instead of symbolTarget. 
 * interp/br-data.boot: Likewise. 	* interp/br-op1.boot: Likewise. 
 * interp/br-prof.boot: Likewise. 	* interp/br-saturn.boot: Likewise. 
 * interp/br-search.boot: Likewise. 	* interp/buildom.boot: Likewise. 
 * interp/c-doc.boot: Likewise. 	* interp/c-util.boot: Likewise. 
 * interp/cattable.boot: Likewise. 	* interp/clam.boot: Likewise. 	*
 interp/define.boot: Likewise. 	* interp/format.boot: Likewise. 	*
 interp/g-timer.boot: Likewise. 	* interp/g-util.boot: Likewise. 
 * interp/ht-util.boot: Likewise. 	* interp/htsetvar.boot: Likewise. 
 * interp/i-intern.boot: Likewise. 	* interp/i-map.boot: Likewise. 	*
 interp/i-object.boot: Likewise. 	* interp/i-syscmd.boot: Likewise. 
 * interp/lisplib.boot: Likewise. 	* interp/profile.boot: Likewise. 
 * interp/trace.boot: Likewise. 	* interp/vmlisp.lisp (assoc): Tidy.

---
 src/interp/i-syscmd.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/i-syscmd.boot')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 1c48b7c6..311db253 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -353,7 +353,7 @@ clearCmdParts(l is [opt,:vl]) ==
     vl := ASSOCLEFT CAAR $InteractiveFrame
     vl := removeDuplicates(append(vl, pmacs))
   $e : local := $InteractiveFrame
-  for x in vl repeat
+  for x in vl | ident? x repeat
     clearDependencies(x,true)
     if option is 'properties and symbolMember?(x,pmacs) then
       clearParserMacro(x)
@@ -2409,7 +2409,7 @@ diffAlist(new,old) ==
     acc := [[name,:[[prop] for [prop,:.] in proplist]],:acc]
 --record properties absent on new list (say, from a )cl all)
   for (oldPair := [name,:r]) in old repeat
-    r and null QLASSQ(name,new) =>
+    r and null symbolTarget(name,new) =>
       acc := [oldPair,:acc]
     -- name has an entry both in new and old world
     -- (1) if the new world has no proplist for that variable
@@ -2490,7 +2490,7 @@ undoSingleStep(changes,env) ==
 --  pp '"----Undoing 1 step--------"
 --  pp changes
   for (change := [name,:changeList]) in changes repeat
-    if symbolLassoc('localModemap,changeList) then
+    if symbolTarget('localModemap,changeList) then
       changeList := undoLocalModemapHack changeList
     pairlist := objectAssoc(name,env) =>
       proplist := rest pairlist =>
-- 
cgit v1.2.3