diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
| commit | 4c2ef607671da29d8ee0aefd393227af72936b44 (patch) | |
| tree | 0c515e0003e4c164390e66d3aa39bfb342520601 /src/interp/postpar.boot | |
| parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
| download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz | |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/postpar.boot')
| -rw-r--r-- | src/interp/postpar.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot index fc7ac484..09837b26 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -346,7 +346,7 @@ postTranScripts a == decodeScripts: %ParseTree -> %ParseForm decodeScripts a == - a is ["PrefixSC",b] => STRCONC(STRINGIMAGE 0,decodeScripts b) + a is ["PrefixSC",b] => strconc(STRINGIMAGE 0,decodeScripts b) a is [";",:b] => APPLX('STRCONC,[decodeScripts x for x in b]) a is [",",:b] => STRINGIMAGE fn a where fn a == (a is [",",:b] => +/[fn x for x in b]; 1) |