From 8c21fa51748d435b43b06fff98ff3b2e5af8c435 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 29 Sep 2009 06:46:16 +0000 Subject: * interp/br-util.boot (htPred2English): Espace "has". * interp/format.boot (pred2English): Likewise. * interp/i-spec1.boot ($specialOps): Likewise. --- src/ChangeLog | 6 ++++++ src/interp/br-util.boot | 2 +- src/interp/format.boot | 2 +- src/interp/i-spec1.boot | 2 +- 4 files changed, 9 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index e474577e..fc857474 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2009-09-29 Gabriel Dos Reis + + * interp/br-util.boot (htPred2English): Espace "has". + * interp/format.boot (pred2English): Likewise. + * interp/i-spec1.boot ($specialOps): Likewise. + 2009-09-29 Gabriel Dos Reis * interp/i-funsel.boot (matchMmSig): Fix thinko from revision 1297. 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) -- cgit v1.2.3