diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 20f15757..e79da786 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -312,7 +312,7 @@ sayMath u == --% Output transformations outputTran x == - x in '("failed" "nil" "prime" "sqfr" "irred") => + member(x,'("failed" "nil" "prime" "sqfr" "irred")) => STRCONC('"_"",x,'"_"") STRINGP x => x VECP x => @@ -436,7 +436,7 @@ outputTran x == -- without stack overflow. MCD. flattenOps l == [op, :args ] := l - op in ['"+",'"*","+","*"] => + member(op,['"+",'"*","+","*"]) => [op,:checkArgs(op,args)] l @@ -1382,7 +1382,7 @@ output(expr,domain) == if $texFormat then texFormat expr if $mathmlFormat then mathmlFormat expr if $algebraFormat then mathprintWithNumber expr - categoryForm? domain or domain in '((Mode) (Domain) (Type)) => + categoryForm? domain or member(domain,'((Mode) (Domain) (Type))) => if $algebraFormat then mathprintWithNumber outputDomainConstructor expr if $texFormat then @@ -1616,7 +1616,7 @@ charyMinus(u,v,start,linelength) == '" " charyBinary(d,u,v,start,linelength) == - d in '(" := " "= ") => + member(d,'(" := " "= ")) => charybdis(['CONCATB,v.1,d],start,linelength) charybdis(v.2,start+2,linelength-2) '" " |