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 5c15147c..8b5b240c 100644 --- a/src/interp/as.boot +++ b/src/interp/as.boot @@ -248,7 +248,7 @@ displayDatabase x == main where zeroOneConversion opAlist == opAlist -- for u in opAlist repeat -- [op,:.] := u --- digit? (PNAME op).0 => u.first := string2Integer PNAME op +-- digit? stringChar(PNAME op,0) => u.first := string2Integer PNAME op -- opAlist asyDisplay(con,alist) == @@ -900,7 +900,7 @@ asyTypeJoinPartPred x == asyTypeJoinItem x == result := asyTypeUnit x - isLowerCaseLetter PNAME(opOf result).0 => + isLowerCaseLetter stringChar(symbolName opOf result,0) => $opStack := [[['ATTRIBUTE,result],:$predlist],:$opStack] $conStack := [[result,:$predlist],:$conStack] |