aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-data.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-15 19:30:34 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-15 19:30:34 +0000
commit0d8fcdd4995bba86701b8184b288dd549a5336fa (patch)
tree81e8f7491effa5959cd43ffdd9d9b94cef9d3f81 /src/interp/br-data.boot
parent8f2bad3b8cea97189a9e842ed0f78559aa4be795 (diff)
downloadopen-axiom-0d8fcdd4995bba86701b8184b288dd549a5336fa.tar.gz
* interp/vmlisp.lisp (SETELT): Remove.
* interp/br-data.boot: Remove use of SETELT. * interp/br-saturn.boot: Likewise. * interp/br-util.boot: Likewise. * interp/functor.boot: Likewise. * interp/ht-util.boot: Likewise. * interp/interop.boot: Likewise. * interp/nruncomp.boot: Likewise.
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r--src/interp/br-data.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index e5fcc1ca..ba28aa18 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -190,7 +190,7 @@ libdbTrim s ==
k := MAXINDEX s
k < 0 => s
for i in 0..k repeat
- s.i = $Newline => SETELT(s,i,char '_ )
+ s.i = $Newline => s.i := char " "
trimString s
checkCommentsForBraces(kind,sop,sigpart,comments) ==