diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-10 17:10:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-10 17:10:58 +0000 |
| commit | 583976f30783abbf02f64abca8796d5a28111b76 (patch) | |
| tree | 2e9f71c9d505bf990804b2b5299181627533d828 /src/interp/i-output.boot | |
| parent | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (diff) | |
| download | open-axiom-583976f30783abbf02f64abca8796d5a28111b76.tar.gz | |
Misc cleanup.
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index e79da786..22c3fe69 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -226,7 +226,7 @@ lbrkSch() == PNAME specialChar 'lbrk quadSch() == PNAME specialChar 'quad isBinaryInfix x == - x in '(_= _+ _- _* _/ _*_* _^ "=" "+" "-" "*" "/" "**" "^") + member(x, '(_= _+ _- _* _/ _*_* _^ "=" "+" "-" "*" "/" "**" "^")) stringApp([.,u],x,y,d) == appChar(STRCONC($DoubleQuote,atom2String u,$DoubleQuote),x,y,d) |