aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-09-26 15:31:13 +0000
committerdos-reis <gdr@axiomatics.org>2009-09-26 15:31:13 +0000
commitfeb9d8d42ee30dbdad5184b654e3de461c06e7e7 (patch)
tree4cc72c9fe189ca8bd74296a36382ec916647260e /src/interp/c-util.boot
parent91bd7571dc0baf8d17047d553e4616dd587c0ffb (diff)
downloadopen-axiom-feb9d8d42ee30dbdad5184b654e3de461c06e7e7.tar.gz
More cleanup
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 863f6d38..bfb80379 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -237,7 +237,7 @@ mkErrorExpr level ==
atom a => a
a is [ =b,:c] => [$bright,b,$dim,:c]
[highlight1(b,first a),:highlight1(b,rest a)]
- substitute(bracket rest l,first rest l,first l)
+ substitute(bracket rest l,second l,first l)
compAndTrace [x,m,e] ==
SAY("tracing comp, compFormWithModemap of: ",x)