aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog4
-rw-r--r--src/interp/c-util.boot4
-rw-r--r--src/interp/parse.boot74
3 files changed, 43 insertions, 39 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 0582ae0d..84afa26c 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,9 @@
2007-12-12 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * parse.boot: Register parsers by name, not by pointers.
+
+2007-12-12 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* define.boot (compDefineFunctor1): Don't set $NRTbase here.
* nruncomp.boot ($NRTbase): Define as a constant.
* setq.lisp: Don't set it.
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 1fc1e117..d5b8492e 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -381,9 +381,9 @@ isAlmostSimple x ==
op="is" => x
op="LET" =>
IDENTP y => (setAssignment LIST x; y)
- true => (setAssignment [["LET",g:= genVariable(),:l],["LET",y,g]]; g)
+ (setAssignment [["LET",g:= genVariable(),:l],["LET",y,g]]; g)
isSideEffectFree op => [op,:mapInto(rest x, function fn)]
- true => $assignmentList:= "failed"
+ $assignmentList:= "failed"
setAssignment x ==
$assignmentList="failed" => nil
$assignmentList:= [:$assignmentList,:x]
diff --git a/src/interp/parse.boot b/src/interp/parse.boot
index 92e70aaf..5f52ab4e 100644
--- a/src/interp/parse.boot
+++ b/src/interp/parse.boot
@@ -488,41 +488,41 @@ parseVCONS l == ["VECTOR",:parseTranList l]
--% Register special parsers.
-for x in [["<=", :function parseLessEqual],_
- [">", :function parseGreaterThan],_
- [">=", :function parseGreaterEqual],_
- ["$<=", :function parseDollarLessEqual],_
- ["$>", :function parseDollarGreaterThan],_
- ["$>=", :function parseDollarGreaterEqual],_
- ["$^=", :function parseDollarNotEqual],_
- ["^=", :function parseNotEqual],_
- ["_:", :function parseColon],_
- ["_:_:", :function parseCoerce],_
- ["@", :function parseAtSign],_
- ["and", :function parseAnd],_
- ["CATEGORY", :function parseCategory],_
- ["construct", :function parseConstruct],_
- ["DEF", :function parseDEF],_
- ["eqv", :function parseEquivalence],_
- ["exit", :function parseExit],_
- ["has", :function parseHas],_
- ["IF", :function parseIf],_
- ["implies", :function parseImplies],_
- ["IN", :function parseIn],_
- ["INBY", :function parseInBy],_
- ["is", :function parseIs],_
- ["isnt", :function parseIsnt],_
- ["Join", :function parseJoin],_
- ["leave", :function parseLeave],_
- ["LET", :function parseLET],_
- ["LETD", :function parseLETD],_
- ["MDEF", :function parseMDEF],_
- ["or", :function parseOr],_
- ["pretend", :function parsePretend],_
- ["return", :function parseReturn],_
- ["SEGMENT", :function parseSegment],_
- ["SEQ", :function parseSeq],_
- ["VCONS", :function parseVCONS],_
- ["where", :function parseWhere],_
- ["xor", :function parseExclusiveOr]] repeat
+for x in [["<=", :"parseLessEqual"],_
+ [">", :"parseGreaterThan"],_
+ [">=", :"parseGreaterEqual"],_
+ ["$<=", :"parseDollarLessEqual"],_
+ ["$>", :"parseDollarGreaterThan"],_
+ ["$>=", :"parseDollarGreaterEqual"],_
+ ["$^=", :"parseDollarNotEqual"],_
+ ["^=", :"parseNotEqual"],_
+ ["_:", :"parseColon"],_
+ ["_:_:", :"parseCoerce"],_
+ ["@", :"parseAtSign"],_
+ ["and", :"parseAnd"],_
+ ["CATEGORY", :"parseCategory"],_
+ ["construct", :"parseConstruct"],_
+ ["DEF", :"parseDEF"],_
+ ["eqv", :"parseEquivalence"],_
+ ["exit", :"parseExit"],_
+ ["has", :"parseHas"],_
+ ["IF", :"parseIf"],_
+ ["implies", :"parseImplies"],_
+ ["IN", :"parseIn"],_
+ ["INBY", :"parseInBy"],_
+ ["is", :"parseIs"],_
+ ["isnt", :"parseIsnt"],_
+ ["Join", :"parseJoin"],_
+ ["leave", :"parseLeave"],_
+ ["LET", :"parseLET"],_
+ ["LETD", :"parseLETD"],_
+ ["MDEF", :"parseMDEF"],_
+ ["or", :"parseOr"],_
+ ["pretend", :"parsePretend"],_
+ ["return", :"parseReturn"],_
+ ["SEGMENT", :"parseSegment"],_
+ ["SEQ", :"parseSeq"],_
+ ["VCONS", :"parseVCONS"],_
+ ["where", :"parseWhere"],_
+ ["xor", :"parseExclusiveOr"]] repeat
MAKEPROP(car x, "parseTran", cdr x)