diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-07 04:51:50 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-07 04:51:50 -0800 |
| commit | 191de261d5a6dde0e287e33431f9a62a36f67ffa (patch) | |
| tree | 67b21031881f18233b9636a884603a033daa8de2 /src/interp/br-data.boot | |
| parent | 4235e2d5a50959dfd6813f4c854abcc7f3b65639 (diff) | |
| download | open-axiom-191de261d5a6dde0e287e33431f9a62a36f67ffa.tar.gz | |
computeAncestorsOf: First parameter is now a DB for the the constructor.
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 039874d5..6399277c 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -550,12 +550,14 @@ ancestorsOf(conform,domform) == --called by kcaPage, originsInOrder,... if domform then right := simpHasPred right right = false => nil [left,:right] - computeAncestorsOf(conform,domform) + -- FIXME: Handle builtin constructors such as Record and friends. + db := constructorDB conname + computeAncestorsOf(db,domform) -computeAncestorsOf(conform,domform) == +computeAncestorsOf(db,domform) == $done: local := hashTable 'EQUAL $if: local := hashTable 'EQ - ancestorsRecur(conform,domform,true,true) + ancestorsRecur(dbConstructorForm db,domform,true,true) acc := nil for op in listSort(function GLESSEQP,HKEYS $if) repeat for pair in tableValue($if,op) repeat acc := [pair,:acc] |