diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-19 04:55:38 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-19 04:55:38 +0000 |
| commit | 0582848626e2b57a4e6d4d7525efd91c5401edf4 (patch) | |
| tree | e46a66bb7a9e2a0fa4b589295d9ca5a99fd93baa /src/interp | |
| parent | fa4294f205cbc0398db0e80b7dbbe8daf7795024 (diff) | |
| download | open-axiom-0582848626e2b57a4e6d4d7525efd91c5401edf4.tar.gz | |
* interp/define.boot (getSignature): Third parameter need not be fluid.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/define.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index c5f7e073..c11a4fbf 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -2019,14 +2019,14 @@ addDomain(domain,e) == e --is not a functor -getSignature(op,argModeList,$e) == - mmList := get(op,'modemap,$e) +getSignature(op,argModeList,e) == + mmList := get(op,'modemap,e) sigl := removeDuplicates [sig for [[dc,:sig],[pred,:.]] in mmList - | dc='$ and sig.source = argModeList and knownInfo(pred,$e)] + | dc='$ and sig.source = argModeList and knownInfo(pred,e)] sigl is [sig] => sig null sigl => - getXmode(op,$e) is ['Mapping,:sig] => sig + getXmode(op,e) is ['Mapping,:sig] => sig SAY '"************* USER ERROR **********" SAY("available signatures for ",op,": ") if null mmList |