diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-30 09:42:31 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 09:42:31 +0000 |
commit | 6661a9aa8e79dc934bde807293857f2dfc0eca6f (patch) | |
tree | 0f017b30dea95a80aff07f10c803e4494b767702 /src/interp/setvars.boot | |
parent | 8470ab862150f003472a1bb05605972c34a2005e (diff) | |
download | open-axiom-6661a9aa8e79dc934bde807293857f2dfc0eca6f.tar.gz |
cleanup
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index 19f8a1ba..659c784f 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -559,7 +559,7 @@ setExposeAddConstr arg == sayKeyedMsg("S2IZ0049K",[x,$interpreterFrameName]) -- if the constructor is explicitly hidden, then remove that if member(x,$localExposureData.2) then - $localExposureData.2 := delete(x,$localExposureData.2) + $localExposureData.2 := remove($localExposureData.2,x) $localExposureData.1 := MSORT [x,:$localExposureData.1] clearClams() sayKeyedMsg("S2IZ0049P",[x,$interpreterFrameName]) @@ -599,7 +599,7 @@ setExposeDropGroup arg == displayHiddenConstructors() clearClams() member(x,$localExposureData.0) => - $localExposureData.0 := delete(x,$localExposureData.0) + $localExposureData.0 := remove($localExposureData.0,x) clearClams() sayKeyedMsg("S2IZ0049S",[x,$interpreterFrameName]) GETALIST($globalExposureGroupAlist,x) => @@ -625,7 +625,7 @@ setExposeDropConstr arg == member(x,$localExposureData.2) => sayKeyedMsg("S2IZ0049O",[x,$interpreterFrameName]) if member(x,$localExposureData.1) then - $localExposureData.1 := delete(x,$localExposureData.1) + $localExposureData.1 := remove($localExposureData.1,x) $localExposureData.2 := MSORT [x,:$localExposureData.2] clearClams() sayKeyedMsg("S2IZ0049Q",[x,$interpreterFrameName]) |