From 6134f0731a2f170fd76b08b435f7a813ee74b806 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 Mar 2008 16:16:22 +0000
Subject: 	* interp/parse.boot (parseDollarGreaterThan): Remove. 
 (parseDollarGreaterEqual): Likewise. 	(parseDollarLessEqual): Likewise. 
 (parseDolloarNotEqual): Likewise.

---
 src/interp/parse.boot | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'src/interp')

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"],_
-- 
cgit v1.2.3