aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-con.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-con.boot')
-rw-r--r--src/interp/br-con.boot3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot
index f2b87dd3..2b8f5cd9 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -116,7 +116,6 @@ kdPageInfo(name,abbrev,nargs,conform,signature,file?) ==
htSayStandard '"\indentrel{-2}"
if isDefautPackageName makeSymbol name then
name := subSequence(name, 0, #name-1)
---sourceFileName := dbSourceFile makeSymbol name
sourceFileName := getConstructorSourceFileFromDB makeSymbol name
filename := extractFileNameFromPath sourceFileName
if filename ~= '"" then
@@ -692,7 +691,7 @@ conOpPage1(conform,:options) ==
conform := mkConform(kind,name,args)
capitalKind := capitalize kind
signature := ncParseFromString sig
- sourceFileName := dbSourceFile makeSymbol name
+ sourceFileName := getContructorSourceFileFromDB makeSymbol name
emString := ['"{\sf ",constring,'"}"]
heading := [capitalKind,'" ",:emString]
if not isExposedConstructor conname then heading := ['"Unexposed ",:heading]