diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-22 02:09:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-22 02:09:12 +0000 |
| commit | c1bf697ff6bf2b914a40b3e867a84762cf214cf1 (patch) | |
| tree | dabb4e77ac5f6549e7c26bef740ae34b4ba9fdc6 /src/interp/br-data.boot | |
| parent | 01d00dd8cc892cd2666297557dd3dc68c0f273c8 (diff) | |
| download | open-axiom-c1bf697ff6bf2b914a40b3e867a84762cf214cf1.tar.gz | |
* interp/database.boot (getConstructorModemap): Rename from
getConstructorModemapFromDB. Adjust callers.
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 29c3d534..b11b2adf 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -94,7 +94,7 @@ buildLibdb(:options) == --called by buildDatabase (database.boot) removeFile '"temp.text" buildLibdbConEntry conname == - null getConstructorModemapFromDB conname => nil + null getConstructorModemap conname => nil abb:= getConstructorAbbreviationFromDB conname $conname := conname conform := getConstructorFormFromDB conname or [conname] --hack for Category,.. @@ -104,7 +104,7 @@ buildLibdbConEntry conname == $doc := getConstructorDocumentationFromDB conname kind := getConstructorKindFromDB conname if kind = 'domain - and getConstructorModemapFromDB conname is [[.,t,:.],:.] + and getConstructorModemap conname is [[.,t,:.],:.] and t is ['CATEGORY,'package,:.] then kind := 'package $kind := isDefaultPackageName conname => 'x @@ -126,7 +126,7 @@ buildLibdbString [x,:u] == strconc(STRINGIMAGE x,strconc/[strconc('"`",STRINGIMAGE y) for y in u]) libConstructorSig [conname,:argl] == - [[.,:sig],:.] := getConstructorModemapFromDB conname + [[.,:sig],:.] := getConstructorModemap conname formals := TAKE(#argl,$FormalMapVariableList) sig := applySubst(pairList($TriangleVariableList,formals),sig) keys := [g(f,sig,i) for f in formals for i in 1..] where @@ -449,7 +449,7 @@ mkDependentsHashTable() == --called by buildDatabase (database.boot) $depTb getArgumentConstructors con == --called by mkDependentsHashTable - argtypes := IFCDR IFCAR getConstructorModemapFromDB con or return nil + argtypes := IFCDR IFCAR getConstructorModemap con or return nil fn argtypes where fn(u) == "union"/[gn x for x in u] gn(x) == |