From 0582848626e2b57a4e6d4d7525efd91c5401edf4 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 19 May 2013 04:55:38 +0000 Subject: * interp/define.boot (getSignature): Third parameter need not be fluid. --- src/ChangeLog | 4 ++++ src/interp/define.boot | 8 ++++---- 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,3 +1,7 @@ +2013-05-18 Gabriel Dos Reis + + * interp/define.boot (getSignature): Third parameter need not be fluid. + 2013-05-18 Gabriel Dos Reis * interp/define.boot (getSignature): Tidy. 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 -- cgit v1.2.3