aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-07-03 11:14:51 +0000
committerdos-reis <gdr@axiomatics.org>2008-07-03 11:14:51 +0000
commit7d7446e578326a98fe8c47a86fadad4e5f5f2de2 (patch)
tree8e0a6ca905142cea263f4ae06dbac3bd18306e04 /src
parent2a1884f21c2de5c43dab64c5c438230e4a29c612 (diff)
downloadopen-axiom-7d7446e578326a98fe8c47a86fadad4e5f5f2de2.tar.gz
* interp/postpar.boot (postBootNotEqual): Register post-parsers by
name, not by pointers.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog2
-rw-r--r--src/interp/postpar.boot67
2 files changed, 36 insertions, 33 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 0677c26b..7c707915 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -8,6 +8,8 @@
* interp/macros.lisp (PRINT-AND-EVAL-DEFUN): Move to sys-utility.boot.
(EVAL-DEFUN): Likewise.
(COMPILE-DEFUN): Likewise.
+ * interp/postpar.boot (postBootNotEqual): Register post-parsers by
+ name, not by pointers.
2008-06-14 Gabriel Dos Reis <gdr@cs.tamu.edu>
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot
index 2697ab22..607fbfcf 100644
--- a/src/interp/postpar.boot
+++ b/src/interp/postpar.boot
@@ -182,10 +182,11 @@ postMakeCons l ==
postAtom: %Atom -> %ParseForm
postAtom x ==
$BOOT => x
- x=0 => '(Zero)
- x=1 => '(One)
+ x=0 => $Zero
+ x=1 => $One
EQ(x,'T) => "T$" -- rename T in spad code to T$
IDENTP x and niladicConstructorFromDB x => [x]
+ x="," => "%Comma"
x
postBlock: %ParseTree -> %ParseForm
@@ -602,36 +603,36 @@ postBootNotEqual u ==
--% Register special parse tree tranformers.
-for x in [["with", :function postWith],_
- ["Scripts", :function postScripts],_
- ["/", :function postSlash],_
- ["construct", :function postConstruct],_
- ["%Block", :function postBlock],_
- ["QUOTE", :function postQUOTE],_
- ["COLLECT", :function postCollect],_
- [":BF:", :function postBigFloat],_
- ["in", :function postin],_
- ["IN", :function postIn],_
- ["REPEAT", :function postRepeat],_
- ["TupleCollect", :function postTupleCollect],_
- ["add", :function postAdd],_
- ["%Reduce", :function postReduce],_
- [",", :function postComma],_
- [";", :function postSemiColon],_
- ["where", :function postWhere],_
- ["::", :function postColonColon],_
- [":", :function postColon],_
- ["@", :function postAtSign],_
- ["pretend", :function postPretend],_
- ["if", :function postIf],_
- ["Join", :function postJoin],_
- ["%Signature", :function postSignature],_
- ["CATEGORY", :function postCategory],_
- ["==", :function postDef],_
- ["==>", :function postMDef],_
- ["->", :function postMapping],_
- ["=>", :function postExit],_
- ["^=", :function postBootNotEqual],_
- ["%Comma", :function post%Comma]] repeat
+for x in [["with", :"postWith"],_
+ ["Scripts", :"postScripts"],_
+ ["/", :"postSlash"],_
+ ["construct", :"postConstruct"],_
+ ["%Block", :"postBlock"],_
+ ["QUOTE", :"postQUOTE"],_
+ ["COLLECT", :"postCollect"],_
+ [":BF:", :"postBigFloat"],_
+ ["in", :"postin"],_
+ ["IN", :"postIn"],_
+ ["REPEAT", :"postRepeat"],_
+ ["TupleCollect", :"postTupleCollect"],_
+ ["add", :"postAdd"],_
+ ["%Reduce", :"postReduce"],_
+ [",", :"postComma"],_
+ [";", :"postSemiColon"],_
+ ["where", :"postWhere"],_
+ ["::", :"postColonColon"],_
+ [":", :"postColon"],_
+ ["@", :"postAtSign"],_
+ ["pretend", :"postPretend"],_
+ ["if", :"postIf"],_
+ ["Join", :"postJoin"],_
+ ["%Signature", :"postSignature"],_
+ ["CATEGORY", :"postCategory"],_
+ ["==", :"postDef"],_
+ ["==>", :"postMDef"],_
+ ["->", :"postMapping"],_
+ ["=>", :"postExit"],_
+ ["^=", :"postBootNotEqual"],_
+ ["%Comma", :"post%Comma"]] repeat
MAKEPROP(first x, "postTran", rest x)