diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 02:55:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 02:55:42 +0000 |
commit | 114fbbb2d4a1b9aca26064d8a2fcf180c65911d2 (patch) | |
tree | a195da9d7a0551ac8a4ace8a0721afd0299f70d2 /src/interp/setvars.boot | |
parent | 7d5b2b21ade3d46ac5d4b521e5b9ef08aac96d63 (diff) | |
download | open-axiom-114fbbb2d4a1b9aca26064d8a2fcf180c65911d2.tar.gz |
* interp/cparse.boot: Replace call to cons with bracket syntax.
* interp/cstream.boot: Likewise.
* interp/database.boot: Likewise.
* interp/define.boot: Likewise.
* interp/g-boot.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/i-analy.boot: Likewise.
* interp/i-coerce.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/incl.boot: Likewise.
* interp/int-top.boot: Likewise.
* interp/macex.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/pile.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/ptrees.boot: Likewise.
* interp/scan.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/types.boot: Likewise.
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index ba9a85d2..590f4cfe 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -538,7 +538,7 @@ setExposeAddGroup arg == sayKeyedMsg("S2IZ0049H",[x]) member(x,$localExposureData.0) => sayKeyedMsg("S2IZ0049I",[x,$interpreterFrameName]) - $localExposureData.0 := MSORT cons(x,$localExposureData.0) + $localExposureData.0 := MSORT [x,:$localExposureData.0] sayKeyedMsg("S2IZ0049R",[x,$interpreterFrameName]) clearClams() @@ -560,7 +560,7 @@ setExposeAddConstr arg == -- if the constructor is explicitly hidden, then remove that if member(x,$localExposureData.2) then $localExposureData.2 := delete(x,$localExposureData.2) - $localExposureData.1 := MSORT cons(x,$localExposureData.1) + $localExposureData.1 := MSORT [x,:$localExposureData.1] clearClams() sayKeyedMsg("S2IZ0049P",[x,$interpreterFrameName]) @@ -626,7 +626,7 @@ setExposeDropConstr arg == sayKeyedMsg("S2IZ0049O",[x,$interpreterFrameName]) if member(x,$localExposureData.1) then $localExposureData.1 := delete(x,$localExposureData.1) - $localExposureData.2 := MSORT cons(x,$localExposureData.2) + $localExposureData.2 := MSORT [x,:$localExposureData.2] clearClams() sayKeyedMsg("S2IZ0049Q",[x,$interpreterFrameName]) @@ -1103,7 +1103,7 @@ setOutputCharacters arg == for [char,:.] in $specialCharacterAlist repeat s := STRCONC('" ",PNAME char,'" is shown as ", PNAME specialChar(char)) - l := cons(s,l) + l := [s,:l] sayAsManyPerLineAsPossible reverse l arg is [fn] and (fn := DOWNCASE(fn)) => |