diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/parse.boot | 16 |
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"],_ |