aboutsummaryrefslogtreecommitdiff
path: root/src/interp/msgdb.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/msgdb.boot')
-rw-r--r--src/interp/msgdb.boot9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot
index efa3ddff..7bc7cc3c 100644
--- a/src/interp/msgdb.boot
+++ b/src/interp/msgdb.boot
@@ -156,12 +156,15 @@ removeAttributes msg ==
applyPrefix2String args ==
[:f x for x in args] where
f x ==
- -- FIXME: we should in fact check for formatting codes
- cons? x => g x
- [x]
+ listify
+ cons? x => g x -- FIXME: should check for formatting codes
+ x
g x ==
$texFormatting => prefix2StringAsTeX x
prefix2String x
+ listify x ==
+ cons? x => x
+ [x]
substituteSegmentedMsg(msg,args) ==
-- this does substitution of the parameters