diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-05 00:58:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-05 00:58:16 +0000 |
| commit | ce7aedf615e201aedf7f21d8aa18b2657dd56c3d (patch) | |
| tree | 35bcf595ee42209deed61c9e4fb0726a0810d677 /src/interp/i-funsel.boot | |
| parent | 65ee234606464f1b5c614ff6d612095bf7520aa5 (diff) | |
| download | open-axiom-ce7aedf615e201aedf7f21d8aa18b2657dd56c3d.tar.gz | |
* interp/daase.lisp (GETDATABASE): Do not handle PREDICATES and
ATTRIBUTES selectors anymore.
* interp/database.boot (getConstructorPredicates): Rename from
getConstructorPredicatesFromDB. Adjust callers.
(getConstructorAttributes): Rename from getConstructorAttributesFromDB.
Adjust callers.
Diffstat (limited to 'src/interp/i-funsel.boot')
| -rw-r--r-- | src/interp/i-funsel.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index 2a086cf9..a09c86d4 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -1607,7 +1607,7 @@ hasAtt(dom,att,SL) == -- needs S0 similar to hasSig above ?? $domPvar: local := nil fun := dom.op => - atts:= subCopy(getConstructorAttributesFromDB fun,constructSubst dom) => + atts:= subCopy(getConstructorAttributes fun,constructSubst dom) => cons? (u := getInfovec dom.op) => --UGH! New world has attributes stored as pairs not as lists!! for [x,:cond] in atts until S isnt 'failed repeat |