diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-18 10:18:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-18 10:18:42 +0000 |
commit | 18cdfe64dbe07358b58d06a70b8d6bc2c276769d (patch) | |
tree | bd6067535d38995b2df9fcb62fc1cde3d4b98566 /src/interp/as.boot | |
parent | c552f9de83083a649b74510b522ceaebbbc0283b (diff) | |
download | open-axiom-18cdfe64dbe07358b58d06a70b8d6bc2c276769d.tar.gz |
cleanup
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] |