diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-29 05:59:06 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-29 05:59:06 +0000 |
commit | d6d284af63e89085e704e27c2f8c893c0ebc2e1a (patch) | |
tree | aa3680ecbd0f5965a6aba6981bdb097af5ed9816 /src/interp/br-op1.boot | |
parent | e8f38c351d90d6dea371a9ac15d2c4906bff9910 (diff) | |
download | open-axiom-d6d284af63e89085e704e27c2f8c893c0ebc2e1a.tar.gz |
* interp/i-funsel.boot (matchMmSig): Fix thinko from revision 1297.
Diffstat (limited to 'src/interp/br-op1.boot')
-rw-r--r-- | src/interp/br-op1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index d5fdebaa..13604dd4 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -532,7 +532,7 @@ dbShowOpAllDomains(htPage,opAlist,which) == domOriginAlist := insertAlist(conname,pred,domOriginAlist) --the following is similar to "domainsOf" but do not sort immediately u := [COPY key for key in HKEYS _*HASCATEGORY_-HASH_* - | LASSQ(CDR key,catOriginAlist)] + | LASSQ(rest key,catOriginAlist)] for pair in u repeat [dom,:cat] := pair LASSQ(cat,catOriginAlist) = 'etc => RPLACD(pair,'etc) |