From bbc597dd3deeca1bff1c35491c1911ce50f1af60 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 9 Aug 2008 14:13:09 +0000 Subject: * 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. --- src/interp/i-map.boot | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/interp/i-map.boot') 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) -- cgit v1.2.3