diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-09 14:13:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-09 14:13:09 +0000 |
| commit | bbc597dd3deeca1bff1c35491c1911ce50f1af60 (patch) | |
| tree | 4329038fa43164b6bfa3516bfb6debe13d87cc36 /src/interp/parse.boot | |
| parent | ca48929b74dee0ecfca92200ec4d5879bff0d4f5 (diff) | |
| download | open-axiom-bbc597dd3deeca1bff1c35491c1911ce50f1af60.tar.gz | |
* interp/buildom.boot: Rename AST code LET to %LET throughout.
* interp/c-util.boot: Likewise.
* interp/comp.lisp: Likewise.
* interp/compiler.boot: Likewise.
* interp/cparse.boot: Likewise.
* interp/def.lisp: Likewise.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-opt.boot: Likewise.
* interp/i-eval.boot: Likewise.
* interp/i-intern.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/iterator.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/newaux.lisp: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/package.boot: Likewise.
* interp/parse.boot: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/property.lisp: Likewise.
* interp/pspad1.boot: Likewise.
* interp/pspad2.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/spad.lisp: Likewise.
* interp/wi1.boot: Likewise.
* interp/wi2.boot: Likewise.
Diffstat (limited to 'src/interp/parse.boot')
| -rw-r--r-- | src/interp/parse.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/parse.boot b/src/interp/parse.boot index d403931c..74b52394 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -92,7 +92,7 @@ parseUpArrow u == -- ??? This parser is unused at the moment. parseLeftArrow: %ParseForm -> %Form parseLeftArrow u == - parseTran ["LET",:rest u] + parseTran ["%LET",:rest u] parseIs: %ParseForm -> %Form parseIs t == @@ -133,9 +133,9 @@ transIs1 u == parseLET: %ParseForm -> %Form parseLET t == - t isnt ["LET",x,y] => systemErrorHere "parseLET" - p := ["LET",parseTran x,parseTranCheckForRecord(y,opOf x)] - opOf x = "cons" => ["LET",transIs p.1,p.2] + t isnt ["%LET",x,y] => systemErrorHere "parseLET" + p := ["%LET",parseTran x,parseTranCheckForRecord(y,opOf x)] + opOf x = "cons" => ["%LET",transIs p.1,p.2] p @@ -445,7 +445,7 @@ makeSimplePredicateOrNil: %ParseForm -> %Form makeSimplePredicateOrNil p == isSimple p => nil u:= isAlmostSimple p => u - true => wrapSEQExit [["LET",g:= GENSYM(),p],g] + true => wrapSEQExit [["%LET",g:= GENSYM(),p],g] parseWhere: %List -> %Form @@ -468,7 +468,7 @@ transSeq l == null rest l => decExitLevel first l [item,:tail]:= l item is ["SEQ",:l,["exit",1,["IF",p,["exit", =2,q],"%noBranch"]]] and - (and/[x is ["LET",:.] for x in l]) => + (and/[x is ["%LET",:.] for x in l]) => ["SEQ",:[decExitLevel x for x in l],["exit",1,["IF",decExitLevel p, decExitLevel q,transSeq tail]]] item is ["IF",a,["exit",1,b],"%noBranch"] => @@ -551,7 +551,7 @@ for x in [["<=", :"parseLessEqual"],_ ["isnt", :"parseIsnt"],_ ["Join", :"parseJoin"],_ ["leave", :"parseLeave"],_ - ["LET", :"parseLET"],_ + ["%LET", :"parseLET"],_ ["LETD", :"parseLETD"],_ ["MDEF", :"parseMDEF"],_ ["or", :"parseOr"],_ |