From e3b93676d2f4be3af64f7ab9fd215ed39ac999b1 Mon Sep 17 00:00:00 2001 From: alfredoport Date: Mon, 4 Aug 2008 00:04:33 +0000 Subject: Fix bug SF 2034483 --- src/ChangeLog | 5 +++++ src/interp/format.boot | 4 ++++ src/interp/setvart.boot | 2 +- 3 files changed, 10 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 76c338e2..d1cfdba5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-08-03 Alfredo Portes + + * interp/setvart.boot: Fix wrong parenthesis. + * interp/format.boot: Add mathObject2String function. + 2008-08-03 Gabriel Dos Reis * interp/sys-globals.boot ($compilingInputFile): Remove. 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 ----------------------- -- -- cgit v1.2.3