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/wi2.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/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index ec25e771..633912ce 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -144,7 +144,7 @@ compDefineFunctor1(df, m,$e,$prefix,$formalArgList) == u:= while cb repeat ATOM cb => return nil - cb is [['LET,'Rep,v,:.],:.] => return (u:=v) + cb is [["%LET",'Rep,v,:.],:.] => return (u:=v) cb:=CDR cb u then $e:= augModemapsFromCategoryRep('_$,ab,cb,target,$e) @@ -477,7 +477,7 @@ getInverseEnvironment(a,E) == E unLet x == - x is ['LET,u,:.] => unLet u + x is ["%LET",u,:.] => unLet u x corrupted? u == @@ -1049,7 +1049,7 @@ doIt(item,$predl) == ------------------------------------- item is ['SEQ,:.] => doItSeq item isDomainForm(item,$e) => doItDomain item - item is ['LET,:.] => doItLet item + item is ["%LET",:.] => doItLet item item is [":",a,t] => [.,.,$e]:= markDeclaredImport markKillAll t compOrCroak(item,$EmptyMode,$e) @@ -1096,7 +1096,7 @@ doItIf(item is [.,p,x,y],$predl,$e) == nils:=[u,:nils] else gv := GENSYM() - ans:=[['LET,gv,u],:ans] + ans:=[["%LET",gv,u],:ans] nils:=[gv,:nils] n:=n+1 @@ -1133,12 +1133,12 @@ doItLet item == res doItLet1 item == - ['LET,lhs,rhs,:.] := item + ["%LET",lhs,rhs,:.] := item not (compOrCroak(item,$EmptyMode,$e) is [code,.,$e]) => stackSemanticError(["cannot compile assigned value to",:bright lhs],nil) qe(5,$e) code := markKillAll code - not (code is ['LET,lhs',rhs',:.] and atom lhs') => + not (code is ["%LET",lhs',rhs',:.] and atom lhs') => code is ["PROGN",:.] => stackSemanticError(["multiple assignment ",item," not allowed"],nil) wiReplaceNode(item, code, 24) @@ -1162,14 +1162,14 @@ doItLet1 item == [[lhs,:SUBLIS($LocalDomainAlist,(get(lhs,'value,$e)).0)],:$LocalDomainAlist] --+ qe(6,$e) - code is ['LET,:.] => + code is ["%LET",:.] => rhsCode:= rhs' op := "setShellEntry" wiReplaceNode(item,[op,'$,NRTgetLocalIndex lhs,rhsCode], 16) wiReplaceNode(item, code, 18) rhsOfLetIsDomainForm code == - code is ['LET,.,rhs',:.] => + code is ["%LET",.,rhs',:.] => isDomainForm(rhs',$e) => rhs' isDomainForm(rhs' := markKillAll rhs',$e) => rhs' false |