diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 16:39:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 16:39:23 +0000 |
| commit | 86a41a3e4a9ae61f3ab002ead3f16abcbef06130 (patch) | |
| tree | 87683e7c108715882d43751948e0d00f1c51dcc2 /src/interp/i-map.boot | |
| parent | fe4b74b0a56bc60835a7f4e7f6344f7ceea0b0b6 (diff) | |
| download | open-axiom-86a41a3e4a9ae61f3ab002ead3f16abcbef06130.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 661e5f5c..a5ccd815 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -441,11 +441,11 @@ simplifyMapConstructorRefs form == args is [obj,dom] => dom' := prefix2String dom --if atom dom' then dom' := [dom'] - --[op,obj,apply('CONCAT,dom')] + --[op,obj,apply(function strconc,dom')] dom'' := atom dom' => dom' null rest dom' => first dom' - apply('CONCAT, dom') + apply(function strconc, dom') [op,obj, dom''] form form |