diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-22 15:51:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-22 15:51:57 +0000 |
commit | 32efd3b0691918cf1d662b095c653d5a0a17ff7b (patch) | |
tree | b340c1d23d752542fe88fd80ae6d559198c0b263 /src/interp/modemap.boot | |
parent | b0046ba3929c513a399fd1ebb84dee1712c55a02 (diff) | |
download | open-axiom-32efd3b0691918cf1d662b095c653d5a0a17ff7b.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index 3b36cdc6..75662d27 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -332,14 +332,11 @@ getOperationAlist(name,functorForm,form) == stackMessage('"not a category form: %1bp",[form]) substNames(domainName,viewName,functorForm,opalist) == - functorForm := SUBSTQ("$$","$", functorForm) + functorForm := substitute("$$","$", functorForm) nameForDollar := isCategoryPackageName functorForm => second functorForm domainName - - -- following calls to SUBSTQ must copy to save RPLAC's in - -- putInLocalDomainReferences - [[:SUBSTQ("$","$$",SUBSTQ(nameForDollar,"$",modemapform)), + [[:substitute("$","$$",substitute(nameForDollar,"$",modemapform)), [sel, viewName,if domainName = "$" then pos else modemapform.mmTarget]] for [:modemapform,[sel,"$",pos]] in |