diff options
| author | alfredoport <doyenatccny@gmail.com> | 2008-08-04 00:04:33 +0000 |
|---|---|---|
| committer | alfredoport <doyenatccny@gmail.com> | 2008-08-04 00:04:33 +0000 |
| commit | e3b93676d2f4be3af64f7ab9fd215ed39ac999b1 (patch) | |
| tree | 0c2775a8ed9f0012a79afbabc6e6d942ada9aa1a /src/interp | |
| parent | dd8f3bdf9d1cd00dc9794309a935f11eda4a83cc (diff) | |
| download | open-axiom-e3b93676d2f4be3af64f7ab9fd215ed39ac999b1.tar.gz | |
Fix bug SF 2034483
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/format.boot | 4 | ||||
| -rw-r--r-- | src/interp/setvart.boot | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 9550ebd5..252eb860 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -720,6 +720,10 @@ pred2English x == concat("attribute: ",form2String form) form2String x +mathObject2String x == + CHARACTERP x => COERCE([x],'STRING) + object2String x + object2String x == STRINGP x => x IDENTP x => PNAME x diff --git a/src/interp/setvart.boot b/src/interp/setvart.boot index de85d43e..39a5e304 100644 --- a/src/interp/setvart.boot +++ b/src/interp/setvart.boot @@ -1501,7 +1501,6 @@ $setOptions := '( chkOutputFileName "console")) NIL) - )) -- ----------------------- The mathml Option ------------------------ -- @@ -1550,6 +1549,7 @@ $setOptions := '( chkOutputFileName "console")) NIL) + )) -- ----------------------- The quit Option ----------------------- -- |