aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/format.boot4
-rw-r--r--src/interp/setvart.boot2
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 -----------------------
--