diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-21 20:03:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-21 20:03:55 +0000 |
| commit | 31cfd568a21d4187e3ac8e19439fa59e69273619 (patch) | |
| tree | 7fed27f29e0584dca207671771f598108c304a13 /src/interp | |
| parent | ce6a9cf2d4342177e2a97d56f63f14d72de61a90 (diff) | |
| download | open-axiom-31cfd568a21d4187e3ac8e19439fa59e69273619.tar.gz | |
* interp/i-spec2.boot (findConstantInDomain): Substitute into the
result domain.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-spec2.boot | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 794568e5..a82579b9 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -98,9 +98,10 @@ constantInDomain?(form,domainForm) == ++ in the VAT `op'. findConstantInDomain(op,c,type,d) == isPartialMode d => throwKeyedMsg("S2IS0020",NIL) - if $genValue then - val := wrap getConstantFromDomain([c],d) - else val := ["getConstantFromDomain",["LIST",MKQ c],MKQ d] + val := + $genValue => wrap getConstantFromDomain([c],d) + ["getConstantFromDomain",["LIST",MKQ c],MKQ d] + type := substitute(d,"$",type) putValue(op,objNew(val,type)) putModeSet(op,[type]) |