diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-12-12 20:11:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-12-12 20:11:30 +0000 |
| commit | a1e1873a557b7c44dc6593618eb9fae8849347d0 (patch) | |
| tree | 8d4b09e187af6560404acd0eb9dbc89c694d0d50 /src/interp/wi2.boot | |
| parent | a6488569ce5377da9a5647ec06b698cc0a42c8c1 (diff) | |
| download | open-axiom-a1e1873a557b7c44dc6593618eb9fae8849347d0.tar.gz | |
r12451@gauss: gdr | 2008-12-12 08:39:20 -0600
Tidy.
Diffstat (limited to 'src/interp/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index 78870d66..85969666 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -332,7 +332,7 @@ compDefineCapsuleFunction(df,m,oldE,$prefix,$formalArgList) == rettype:= resolve(signature'.target,$returnMode) localOrExported := - null member($op,$formalArgList) and + not MEMQ($op,$formalArgList) and getmode($op,e) is ['Mapping,:.] => 'local 'exported @@ -502,7 +502,7 @@ applyMapping([op,:argl],m,e,ml) == T() == [.,.,e]:= comp(x,m',e) or return "failed" if argl'="failed" then return nil form:= - not member(op,$formalArgList) and ATOM op and not get(op,'value,e) => + not MEMQ(op,$formalArgList) and ATOM op and not get(op,'value,e) => nprefix := $prefix or -- following needed for referencing local funs at capsule level getAbbreviation($op,#rest $form) @@ -644,7 +644,7 @@ compApplyModemap(form,modemap,$e,sl) == --+ store the signature instead. --$NRTflag=true and f is [op1,d,.] and NE(d,'$) and member(op1,'(ELT CONST)) => - f is [op1,d,.] and member(op1,'(ELT CONST Subsumed)) => + f is [op1,d,.] and MEMQ(op1,'(ELT CONST Subsumed)) => [genDeltaEntry [op,:modemap],lt',$bindings] markImport mc [f,lt',$bindings] |