diff options
Diffstat (limited to 'src/interp/as.boot')
| -rw-r--r-- | src/interp/as.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/as.boot b/src/interp/as.boot index 8b5b240c..cef308e2 100644 --- a/src/interp/as.boot +++ b/src/interp/as.boot @@ -701,12 +701,12 @@ asyAbbreviation(id,n) == chk(id,main) where --> n = number of arguments main() == a := createAbbreviation id => a name := PNAME id --- #name < 8 => makeSymbol UPCASE name +-- #name < 8 => makeSymbol stringUpcase name parts := asySplit(name,maxIndex name) newname := strconc/[asyShorten x for x in parts] #newname < 8 => makeSymbol newname tryname := subString(name,0,7) - not createAbbreviation tryname => makeSymbol UPCASE tryname + not createAbbreviation tryname => makeSymbol stringUpcase tryname nil chk(conname,abb) == (xx := asyGetAbbrevFromComments conname) => xx |