diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 20:40:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 20:40:25 +0000 |
| commit | a6c8f543276feb112a408d9347b56addd558bd6e (patch) | |
| tree | 1d814c384bdc4d025aae6895d316939d672be34b /src/interp/br-data.boot | |
| parent | 4c2ef607671da29d8ee0aefd393227af72936b44 (diff) | |
| download | open-axiom-a6c8f543276feb112a408d9347b56addd558bd6e.tar.gz | |
More STRCONC cleanups
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index d585d1dc..d8668ed4 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -126,7 +126,7 @@ buildLibdbConEntry conname == dbMkForm x == atom x and [x] or x buildLibdbString [x,:u] == - strconc(STRINGIMAGE x,"STRCONC"/[strconc('"`",STRINGIMAGE y) for y in u]) + strconc(STRINGIMAGE x,strconc/[strconc('"`",STRINGIMAGE y) for y in u]) libConstructorSig [conname,:argl] == [[.,:sig],:.] := getConstructorModemapFromDB conname @@ -269,7 +269,7 @@ dbReadComments(n) == x.(j := j + 1) = char '_- and x.(j := j + 1) = char '_- repeat xtralines := [SUBSTRING(x,j + 1,nil),:xtralines] SHUT instream - strconc(line, "STRCONC"/nreverse xtralines) + strconc(line, strconc/nreverse xtralines) dbSplitLibdb() == instream := MAKE_-INSTREAM '"olibdb.text" @@ -359,7 +359,7 @@ buildGloss() == --called by buildDatabase (database.boot) PRINTEXP($tick,defstream) PRINTEXP(x, defstream) TERPRI defstream - PRINTEXP("STRCONC"/lines,htstream) + PRINTEXP(strconc/lines,htstream) TERPRI htstream PRINTEXP('"\endmenu\endscroll",htstream) PRINTEXP('"\lispdownlink{Search}{(|htGloss| _"\stringvalue{pattern}_")} for glossary entry matching \inputstring{pattern}{24}{*}",htstream) |