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/postpar.boot | |
parent | 4c2ef607671da29d8ee0aefd393227af72936b44 (diff) | |
download | open-axiom-a6c8f543276feb112a408d9347b56addd558bd6e.tar.gz |
More STRCONC cleanups
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 09837b26..99ef5eda 100644 --- a/src/interp/postpar.boot +++ b/src/interp/postpar.boot @@ -347,7 +347,7 @@ postTranScripts a == decodeScripts: %ParseTree -> %ParseForm decodeScripts a == a is ["PrefixSC",b] => strconc(STRINGIMAGE 0,decodeScripts b) - a is [";",:b] => APPLX('STRCONC,[decodeScripts x for x in b]) + a is [";",:b] => APPLX(function 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) STRINGIMAGE 1 |