aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-op2.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r--src/interp/br-op2.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot
index 84cb23c6..e6b3de61 100644
--- a/src/interp/br-op2.boot
+++ b/src/interp/br-op2.boot
@@ -176,7 +176,7 @@ dbChooseOperandName(typ) ==
kind :=
name = "$" => 'domain
getConstructorKindFromDB name
- s := PNAME opOf typ
+ s := symbolName opOf typ
kind ~= 'category =>
anySubstring?('"Integer",s,0) or anySubstring?('"Number",s,0) =>
x := first $NumberList