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/pspad1.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/pspad1.boot')
| -rw-r--r-- | src/interp/pspad1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 284d5705..2ad7b5d2 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -477,7 +477,7 @@ formatLeft(fn,x,op,key) == formatRight(fn,x,op,key) == --are there exceptional cases where piles are ok? - x is ['LET,:.] => FUNCALL(fn,x) + x is ["%LET",:.] => FUNCALL(fn,x) --decide on basis of binding power whether prens are needed rbp := formatOpBindingPower(op,key,"right") lbp := formatOpBindingPower(opOf x,key,"left") |