aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-04-14 23:23:30 +0000
committerdos-reis <gdr@axiomatics.org>2008-04-14 23:23:30 +0000
commit2139466e18081430ec55245e16ef1ed338af909a (patch)
treeb16fb3883250feeea75e1ee73348fb213d686a08
parent8b65bcf401b83f62029436d36cc6a6c8cdf4be85 (diff)
downloadopen-axiom-2139466e18081430ec55245e16ef1ed338af909a.tar.gz
* interp/compiler.boot: Don't special case ListCategory, String,
VECTOR, and VectorCategory.
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/compiler.boot4
2 files changed, 5 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index e9912577..33ab484e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2008-04-14 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/compiler.boot: Don't special case ListCategory, String,
+ VECTOR, and VectorCategory.
+
+2008-04-14 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* boot/tokens.boot: Don't rename NOT.
* interp/define.boot: Add declarations.
* interp/types.boot (%Signature): New.
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 2e880a24..f8f6ca01 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -1642,7 +1642,6 @@ for x in [["|", :"compSuchthat"],_
["Join", :"compJoin"],_
["leave", :"compLeave"],_
["LET", :"compSetq"],_
- ["ListCategory", :"compConstructorCategory"],_
["MDEF", :"compMacro"],_
["not", :"compileNot"],_
["pretend", :"compPretend"],_
@@ -1653,14 +1652,11 @@ for x in [["|", :"compSuchthat"],_
["return", :"compReturn"],_
["SEQ", :"compSeq"],_
["SETQ", :"compSetq"],_
- ["String", :"compString"],_
["SubDomain", :"compSubDomain"],_
["SubsetCategory", :"compSubsetCategory"],_
["Union", :"compCat"],_
["Mapping", :"compCat"],_
["UnionCategory", :"compConstructorCategory"],_
- ["VECTOR", :"compVector"],_
- ["VectorCategory", :"compConstructorCategory"],_
["where", :"compWhere"],_
["[||]", :"compileQuasiquote"]] repeat
MAKEPROP(car x, 'SPECIAL, cdr x)