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/i-map.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/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 547a8a2b..6ec3c5c6 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -718,13 +718,13 @@ genMapCode(op,body,sig,fnName,parms,isRecursive) == -- RSS: 6-21-94 -- The following code ensures that local variables really are local - -- to a function. We will unnecessarily generate preliminary LETs for - -- loop variables and variables that do have LET expressions, but that + -- to a function. We will unnecessarily generate preliminary %LETs for + -- loop variables and variables that do have %LET expressions, but that -- can be finessed later. locals := SETDIFFERENCE(COPY $localVars, parms) if locals then - lets := [['LET, l, ''UNINITIALIZED__VARIABLE, op] for l in locals] + lets := [["%LET", l, ''UNINITIALIZED__VARIABLE, op] for l in locals] body := ['PROGN, :lets, body] reportFunctionCompilation(op,fnName,parms, @@ -999,10 +999,10 @@ findLocalVars1(op,form) == form is ['free, :vars] => for x in vars repeat ATOM x => mkFreeVar(op, x) - form is ['LET,a,b] => + form is ["%LET",a,b] => (a is ["tuple",:vars]) and (b is ["tuple",:vals]) => for var in vars for val in vals repeat - findLocalVars1(op,['LET,var,val]) + findLocalVars1(op,["%LET",var,val]) a is ['construct,:pat] => for var in listOfVariables pat repeat mkLocalVar(op,var) findLocalVars1(op,b) |