diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-28 23:39:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-28 23:39:44 +0000 |
| commit | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (patch) | |
| tree | cfa8803798bef9eb304da47b18ef024c5c39b702 /src/interp/pspad2.boot | |
| parent | 9ddf05bc7781163fbd6bd2b894337d8721de117a (diff) | |
| download | open-axiom-ca4b1b74d8e743f50f0db37f1b33265f46547f01.tar.gz | |
Character constants clean up
Diffstat (limited to 'src/interp/pspad2.boot')
| -rw-r--r-- | src/interp/pspad2.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/pspad2.boot b/src/interp/pspad2.boot index 92434706..c5bf7aa8 100644 --- a/src/interp/pspad2.boot +++ b/src/interp/pspad2.boot @@ -566,8 +566,8 @@ ident2PrintImage s == m := MAXINDEX s if m > 1 and s.(m - 1) = $underScore then s := strconc(SUBSTRING(s,0,m-1),s.m) u:= GETSTR (2*# s) - if not (alphabetic? s.(0) or s.(0)=char '"$") then SUFFIX('__,u) - u:= SUFFIX(s.(0),u) + if not (alphabetic? s.0 or s.0 = char "$") then SUFFIX('__,u) + u:= SUFFIX(s.0,u) for i in 1..MAXINDEX s repeat if not (digit? s.i or alphabetic? s.i or ((c := s.i) = char '?) or (c = char '_!)) then SUFFIX('__,u) @@ -578,10 +578,10 @@ isIdentifier x == IDENTP x => s:= PNAME x #s = 0 => nil - alphabetic? s.(0) => and/[s.i ~= char '" " for i in 1..MAXINDEX s] + alphabetic? s.0 => and/[s.i ~= char " " for i in 1..MAXINDEX s] #s>1 => or/[alphabetic? s.i for i in 1..(m:= MAXINDEX s)] => - and/[s.i ~= char '" " for i in 1..m] => true + and/[s.i ~= char " " for i in 1..m] => true isGensym x == s := STRINGIMAGE x |