diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-08 14:20:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-08 14:20:57 +0000 |
commit | 9306af57a53ceace77f8f0cfea65f6ceed76d5c1 (patch) | |
tree | 5ec4343bb04a9868541dea01c08a3244e15a831d /src/interp/interop.boot | |
parent | 9ede6cd0b5be47c119455a8df1bc41cb56e2f5ff (diff) | |
download | open-axiom-9306af57a53ceace77f8f0cfea65f6ceed76d5c1.tar.gz |
* boot/parser.boot (bpArgumentList): New.
(bpParenthesizedApplication): Use it. New.
(bpPrimary1): Use it to implement function call with explicit
parenthesis as primary.
(bpOperator): Remove.
(bpAssignLHS): Rework. Allow field path after function call.
* boot/translator.boot: Remove debugging statement.
* interp/as.boot: Adjust to new syntax.
* interp/br-con.boot: Likewise.
* interp/br-data.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/category.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/pspad1.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/trace.boot: Likewise.
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 9e9b6581..48ed5ebd 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -139,13 +139,13 @@ closeOldAxiomFunctor(name) == lazyOldAxiomDomainLookupExport(domenv, self, op, sig, box, skipdefaults, env) == dom := instantiate domenv - SPADCALL(rest dom, self, op, sig, box, skipdefaults, first(dom).3) + SPADCALL(rest dom, self, op, sig, box, skipdefaults, first dom.3) lazyOldAxiomDomainHashCode(domenv, env) == first domenv lazyOldAxiomDomainDevaluate(domenv, env) == dom := instantiate domenv - SPADCALL(rest dom, first(dom).1) + SPADCALL(rest dom, first dom.1) lazyOldAxiomAddChild(domenv, kid, env) == CONS($lazyOldAxiomDomainDispatch,domenv) @@ -328,7 +328,7 @@ oldAxiomDomainHasCategory(domenv, cat, env) == HasCategory(domvec, devaluate cat) oldAxiomDomainDevaluate(domenv, env) == - SExprToDName(rest(domenv).0, 'T) + SExprToDName(rest domenv.0, 'T) oldAxiomAddChild(domenv, child, env) == CONS($oldAxiomDomainDispatch, domenv) |