aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/interp/parse.boot16
2 files changed, 7 insertions, 16 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index a55a6f0f..f0d0fc46 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2008-03-09 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * interp/parse.boot (parseDollarGreaterThan): Remove.
+ (parseDollarGreaterEqual): Likewise.
+ (parseDollarLessEqual): Likewise.
+ (parseDolloarNotEqual): Likewise.
+
2008-03-08 Gabriel Dos Reis <gdr@cs.tamu.edu>
* graph/: Depamphletize.
diff --git a/src/interp/parse.boot b/src/interp/parse.boot
index 49aee33f..9f5cb73e 100644
--- a/src/interp/parse.boot
+++ b/src/interp/parse.boot
@@ -313,18 +313,6 @@ parseLessEqual u == parseTran ["not",[substitute(">","<=",$op),:u]]
parseNotEqual u == parseTran ["not",[substitute("=","^=",$op),:u]]
-parseDollarGreaterThan [x,y] ==
- [substitute("$<","$>",$op),parseTran y,parseTran x]
-
-parseDollarGreaterEqual u ==
- parseTran ["not",[substitute("$<","$>=",$op),:u]]
-
-parseDollarLessEqual u ==
- parseTran ["not",[substitute("$>","$<=",$op),:u]]
-
-parseDollarNotEqual u ==
- parseTran ["not",[substitute("$=","$^=",$op),:u]]
-
parseAnd u ==
$InteractiveMode => ["and",:parseTranList u]
null u => "true"
@@ -496,10 +484,6 @@ parseVCONS l == ["VECTOR",:parseTranList l]
for x in [["<=", :"parseLessEqual"],_
[">", :"parseGreaterThan"],_
[">=", :"parseGreaterEqual"],_
- ["$<=", :"parseDollarLessEqual"],_
- ["$>", :"parseDollarGreaterThan"],_
- ["$>=", :"parseDollarGreaterEqual"],_
- ["$^=", :"parseDollarNotEqual"],_
["^=", :"parseNotEqual"],_
["_:", :"parseColon"],_
["_:_:", :"parseCoerce"],_