diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-24 18:06:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-24 18:06:28 +0000 |
| commit | 1f68c8c90efaf97535bfc1bfc99cad368213870e (patch) | |
| tree | b58a560a5e83f5dc73b3e5443e3a8bcabf5d0f19 /src/interp/c-util.boot | |
| parent | 04608dfa938b011bce60031e7eccfb6cb67c2ced (diff) | |
| download | open-axiom-1f68c8c90efaf97535bfc1bfc99cad368213870e.tar.gz | |
* interp/sys-macros.lisp (shellEntry): New.
* interp/g-util.boot (setShellEntry): Remove.
* interp/compiler.boot: Use %store to %tref forms instead of
setHSellEntry.
* interp/define.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/c-util.boot (isSimple): Tidy.
(isSideEffectFree): Likewise.
(updateCapsuleDirectory): Likewise.
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 9d081520..0034fce3 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -692,12 +692,11 @@ isDomainInScope(domain,e) == isSimple x == atomic? x => true - constructor? x.op or - isSideEffectFree x.op and (and/[isSimple y for y in x.args]) + isSideEffectFree x.op and (and/[isSimple y for y in x.args]) isSideEffectFree op == - member(op,$SideEffectFreeFunctionList) or op is ["elt",.,op'] and - isSideEffectFree op' + op is ["elt",.,op'] => isSideEffectFree op' + member(op,$SideEffectFreeFunctionList) isAlmostSimple x == --returns (<new predicate> . <list of assignments>) or nil @@ -1047,9 +1046,9 @@ getCapsuleDirectoryEntry slot == updateCapsuleDirectory(item,pred) == pred ~= true => nil entry := - item is ["$",slot,["CONS",["dispatchFunction",fun],:.],:.] => [slot,:fun] - item is ["$",slot,["CONS","IDENTITY", - ["FUNCALL",["dispatchFunction",fun],"$"]]] => [slot,:fun] + item is [['$,slot],['CONS,['dispatchFunction,fun],:.],:.] => [slot,:fun] + item is [['$,slot],['CONS,'IDENTITY, + ['FUNCALL,['dispatchFunction,fun],'$]]] => [slot,:fun] nil entry = nil => nil $capsuleDirectory := [entry,:$capsuleDirectory] |