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-intern.boot | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/interp/i-intern.boot') diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 3116293f..681464a6 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -162,10 +162,10 @@ mkAtree2(x,op,argl) == (op="case") and (nargl = 2) => [mkAtreeNode "case",mkAtree1 first argl,unabbrev CADR argl] op="REPEAT" => [mkAtreeNode op,:transformREPEAT argl] - op="LET" and argl is [['construct,:.],rhs] => - [mkAtreeNode "LET",first argl,mkAtree1 rhs] - op="LET" and argl is [[":",a,.],rhs] => - mkAtree1 ["SEQ",first argl,["LET",a,rhs]] + op="%LET" and argl is [['construct,:.],rhs] => + [mkAtreeNode "%LET",first argl,mkAtree1 rhs] + op="%LET" and argl is [[":",a,.],rhs] => + mkAtree1 ["SEQ",first argl,["%LET",a,rhs]] op is ['_$elt,D,op1] => op1 is "=" => a' := [mkAtreeNode '_=,:[mkAtree1 arg for arg in argl]] -- cgit v1.2.3