diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
commit | c5659a8580de5b531891c6703465c84add9fbb1b (patch) | |
tree | 60966651b64626e365cd158a89cd41a9028ea8a9 /src/interp/br-search.boot | |
parent | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (diff) | |
download | open-axiom-c5659a8580de5b531891c6703465c84add9fbb1b.tar.gz |
Various cleanups.
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r-- | src/interp/br-search.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index 8cc82604..3c7089d3 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -328,7 +328,7 @@ oPage(a,:b) == --called by \spadfun{opname} oPageFrom(opname,conname) == --called by \spadfunFrom{opname}{conname} htPage := htInitPage(nil,nil) --create empty page and fill in needed properties htpSetProperty(htPage,'conform,conform := getConstructorForm conname) - htpSetProperty(htPage,'kind,STRINGIMAGE GETDATABASE(conname,'CONSTRUCTORKIND)) + htpSetProperty(htPage,'kind,STRINGIMAGE getConstructorKindFromDB conname) itemlist := ASSOC(opname,koOps(conform,nil)) --all operations name "opname" null itemlist => systemError [conform,'" has no operation named ",opname] opAlist := [itemlist] |