aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-saturn.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r--src/interp/br-saturn.boot6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index 0b627a34..d2fb762c 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -1221,9 +1221,9 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
ops := escapeSpecialChars STRINGIMAGE op
n := #sig
do
- n = 2 and LASSOC('Nud,PROPLIST op) =>
+ n = 2 and symbolLassoc('Nud,PROPLIST op) =>
htSay(ops,'" {\em ",quickForm2HtString KAR args,'"}")
- n = 3 and LASSOC('Led,PROPLIST op) =>
+ n = 3 and symbolLassoc('Led,PROPLIST op) =>
htSay('"{\em ",quickForm2HtString KAR args,'"} ",ops,'" {\em ",quickForm2HtString KAR KDR args,'"}")
if unexposed? and $includeUnexposed? then
htSayUnexposed()
@@ -1328,7 +1328,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
htSaySaturn '"{\em Where:}"
htSayStandard('"\newline\tab{2}{\em Where:}")
firstTime := true
- if ASSOC("$",$whereList) then
+ if symbolAssoc("$",$whereList) then
htSayIndentRel(15,true)
htSaySaturnAmpersand()
htSayStandard '"{\em \$} is "