diff options
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) |