diff options
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] |