diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-21 02:03:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-21 02:03:15 +0000 |
| commit | 58dc9f8145468998071a2a69d3dbfb6c710eab39 (patch) | |
| tree | 55dc479b3854da39e13abd1281904e148e7f3f7e /src/interp/compiler.boot | |
| parent | 8887fe1d244a40fdc3980d87e30f445249ecdf2e (diff) | |
| download | open-axiom-58dc9f8145468998071a2a69d3dbfb6c710eab39.tar.gz | |
* interp/modemap.boot (augModemapsFromDomain): Don't add modemaps
for element types of Vector or List aggregates.
* algebrar/: Adjust algebras that depended on this behaviour.
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 3bfaada1..f452d652 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -2395,9 +2395,6 @@ compRepeatOrCollect(form,m,e) == -- fn:= (or/[selfn for [cond,selfn] in u | cond=true]) or return nil -- [['%call,fn,x],target,e] -listOrVectorElementMode x == - x is [a,b,:.] and symbolMember?(a,'(PrimitiveArray Vector List)) => b - ++ Return the least Integer subdomain that can represent values ++ of both Integer subdomains denoted by the forms `x' and `y. joinIntegerModes(x,y,e) == |