diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/format.boot | 4 | ||||
| -rw-r--r-- | src/interp/setvart.boot | 2 |
3 files changed, 10 insertions, 1 deletions
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 <doyenatccny@gmail.com> + + * interp/setvart.boot: Fix wrong parenthesis. + * interp/format.boot: Add mathObject2String function. + 2008-08-03 Gabriel Dos Reis <gdr@cs.tamu.edu> * 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 ----------------------- -- |