aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-05-19 04:55:38 +0000
committerdos-reis <gdr@axiomatics.org>2013-05-19 04:55:38 +0000
commit0582848626e2b57a4e6d4d7525efd91c5401edf4 (patch)
treee46a66bb7a9e2a0fa4b589295d9ca5a99fd93baa /src
parentfa4294f205cbc0398db0e80b7dbbe8daf7795024 (diff)
downloadopen-axiom-0582848626e2b57a4e6d4d7525efd91c5401edf4.tar.gz
* interp/define.boot (getSignature): Third parameter need not be fluid.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/define.boot8
2 files changed, 8 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 84f3ddcc..a838d03a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
2013-05-18 Gabriel Dos Reis <gdr@integrable-solutions.net>
+ * interp/define.boot (getSignature): Third parameter need not be fluid.
+
+2013-05-18 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
* interp/define.boot (getSignature): Tidy.
2013-05-18 Gabriel Dos Reis <gdr@integrable-solutions.net>
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