aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/br-util.boot2
-rw-r--r--src/interp/format.boot2
-rw-r--r--src/interp/i-spec1.boot2
3 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index 068ad421..5becaedb 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -164,7 +164,7 @@ htPred2English(x,:options) ==
bcConform(first l,$emList)
htSay('" has ")
fnAttr CADADR l
- op in '(has ofCategory) =>
+ op in '(_has ofCategory) =>
bcConform(first l,$emList)
htSay('" has ")
[a,b] := l
diff --git a/src/interp/format.boot b/src/interp/format.boot
index 4c598244..416ecab4 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -708,7 +708,7 @@ pred2English x ==
concat(pred2English first l,tail)
x is ['NOT,l] =>
concat('"not ",pred2English l)
- x is [op,a,b] and op in '(has ofCategory) =>
+ x is [op,a,b] and op in '(_has ofCategory) =>
concat(pred2English a,'%b,'"has",'%d,form2String abbreviate b)
x is [op,a,b] and op in '(HasSignature HasAttribute HasCategory) =>
concat(prefix2String0 formatPredParts a,'%b,'"has",'%d,
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index 84cbc85f..cfc0ed79 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -40,7 +40,7 @@ namespace BOOT
$specialOps := '(
ADEF AlgExtension _and _case COERCE COLLECT construct Declare DEF Dollar
- equation error free has IF _is _isnt iterate _break %LET _local MDEF _or
+ equation error free _has IF _is _isnt iterate _break %LET _local MDEF _or
pretend QUOTE REDUCE REPEAT _return SEQ TARGET tuple typeOf _where
_[_|_|_] %Macro %MLambda %Import %Export %Inline %With %Add %Match)