diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 22:37:43 +0000 |
| commit | c552f9de83083a649b74510b522ceaebbbc0283b (patch) | |
| tree | a69dfbba85de4e384f172ebc0f47e12f7c63ebd2 /src/interp/functor.boot | |
| parent | 0de5ea3df4ffff2d97202a66629e19e0579410ea (diff) | |
| download | open-axiom-c552f9de83083a649b74510b522ceaebbbc0283b.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index a8311049..9a72de7f 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -929,7 +929,8 @@ alistSize c == count(CDAR x,level+1)+count(rest x,level) addSuffix(n,u) == - alphabetic?((s:= STRINGIMAGE u).(maxIndex s)) => + s:= STRINGIMAGE u + alphabetic? stringChar(s,maxIndex s) => makeSymbol strconc(s,STRINGIMAGE n) INTERNL strconc(s,STRINGIMAGE ";",STRINGIMAGE n) |