diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 15:57:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 15:57:28 +0000 |
| commit | b248654cba0d6c5ae213882837140358f92bab1c (patch) | |
| tree | b11ab78c2648334dcc1c9bbe63e82f6878ed27f4 /src/interp | |
| parent | aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd (diff) | |
| download | open-axiom-b248654cba0d6c5ae213882837140358f92bab1c.tar.gz | |
* boot/tokens.boot: Don't rename 'cons'.
* interp/msg.boot: Remove uses of cons.
* interp/postpar.boot: Likewise.
* interp/types.boot: Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/incl.boot | 2 | ||||
| -rw-r--r-- | src/interp/msg.boot | 2 | ||||
| -rw-r--r-- | src/interp/postpar.boot | 4 | ||||
| -rw-r--r-- | src/interp/types.boot | 6 |
4 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/incl.boot b/src/interp/incl.boot index ebd71c2e..33bce836 100644 --- a/src/interp/incl.boot +++ b/src/interp/incl.boot @@ -327,7 +327,7 @@ incLude1 (:z) == Tail := [xlConStill (eb, str, lno,ufos,n),:Tail] - Head := cons (xlConsole(eb, str, lno,ufos), Head) + Head := [xlConsole(eb, str, lno,ufos),:Head] [xlOK(eb,str,lno,ufos.0),:incAppend(Head,Tail)] info.2 = '"fin" => diff --git a/src/interp/msg.boot b/src/interp/msg.boot index a13df0c7..74b97dc2 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -120,7 +120,7 @@ processKeyedError msg == CallerName 4,:erMsg] --temp msgImPr? msg => msgOutputter msg - $ncMsgList := cons (msg, $ncMsgList) + $ncMsgList := [msg,:$ncMsgList] --------------------------------- --%getting info from db. diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index 311f1117..fc7ac484 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -39,11 +39,11 @@ module postpar ++ The type of parse trees. %ParseTree <=> - %Number or %Symbol or %String or cons + %Number or %Symbol or %String or %Pair ++ The result of processing a parse tree. %ParseForm <=> - %Number or %Symbol or %String or cons + %Number or %Symbol or %String or %Pair $postStack := [] diff --git a/src/interp/types.boot b/src/interp/types.boot index a9f67800..37c1d8e5 100644 --- a/src/interp/types.boot +++ b/src/interp/types.boot @@ -119,13 +119,13 @@ namespace BOOT %Sequence <=> SEQUENCE -%Pair <=> cons +%Pair <=> CONS %Maybe a <=> null or a --% Data structures for the compiler %Constructor <=> %Symbol -- constructor -%Form <=> %Number or %Symbol or %String or cons -- input syntax form +%Form <=> %Number or %Symbol or %String or %Pair -- input syntax form %Instantiation <=> [%Constructor,:%Form] -- constructor instance %Env <=> %List -- compiling env %Mode <=> %Symbol or %String or %List -- type of forms @@ -134,7 +134,7 @@ namespace BOOT [%Code,:[%Mode,:[%Env,:null]]] %Signature -- signature - <=> %Symbol or cons + <=> %Symbol or %Pair %Modemap <=> %List -- modemap |