From 25771fb23320f424f6e71ee07407886da815bbdc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 11 Dec 2008 22:55:35 +0000
Subject:  r12437@gauss:  gdr | 2008-12-09 22:23:31 -0600  	Remove unused
 parse functions.

---
 src/interp/parse.boot | 18 +-----------------
 1 file changed, 1 insertion(+), 17 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/parse.boot b/src/interp/parse.boot
index ba3a9258..880ce16f 100644
--- a/src/interp/parse.boot
+++ b/src/interp/parse.boot
@@ -86,11 +86,6 @@ parseConstruct u ==
   $insideConstructIfTrue: local:= true
   [first u,:parseTranList rest u]
 
--- ??? This parser is unused at the moment.
-parseUpArrow: %ParseForm -> %Form
-parseUpArrow u ==  
-  parseTran ["**",:rest u]
-
 -- ??? This parser is unused at the moment.
 parseLeftArrow: %ParseForm -> %Form
 parseLeftArrow u == 
@@ -268,17 +263,6 @@ parseTranCheckForRecord(x,op) ==
     x
   x
  
--- ??? This parser is unused at the moment.
-parseCases: %ParseForm -> %Form
-parseCases t ==
-  t isnt [expr,ifClause] => systemErrorHere "parseCases"
-  casefn(expr,ifClause) where
-    casefn(x,ifExpr) ==
-      ifExpr="%noBranch" => ["ifClauseError",x]
-      ifExpr is ["IF",a,b,c] => ["IF",parseTran a,parseTran b,casefn(x,c)]
-      postError ['"   CASES format error: cases ",x," of ",ifExpr]
- 
-
 parseCategory: %ParseForm -> %Form
 parseCategory t ==
   t isnt ["CATEGORY",:x] => systemErrorHere "parseCategory"
@@ -440,7 +424,7 @@ makeSimplePredicateOrNil: %ParseForm -> %Form
 makeSimplePredicateOrNil p ==
   isSimple p => nil
   u:= isAlmostSimple p => u
-  true => wrapSEQExit [["%LET",g:= GENSYM(),p],g]
+  wrapSEQExit [["%LET",g:= GENSYM(),p],g]
  
 
 parseWhere: %List -> %Form
-- 
cgit v1.2.3