diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
commit | faaf19e1912ba48e9fbd195d2b90c4e205c87538 (patch) | |
tree | 18a81dba1f12285383ba73beaeb8febb6606ea37 /src/interp/cparse.boot | |
parent | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (diff) | |
download | open-axiom-faaf19e1912ba48e9fbd195d2b90c4e205c87538.tar.gz |
cleanup
Diffstat (limited to 'src/interp/cparse.boot')
-rw-r--r-- | src/interp/cparse.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/cparse.boot b/src/interp/cparse.boot index 1ae46824..55990bed 100644 --- a/src/interp/cparse.boot +++ b/src/interp/cparse.boot @@ -315,7 +315,7 @@ npInfixOperator() == ++ Parse any infix keyword in the list `s'. npInfKey s == - $stok.first.first = "key" and MEMQ($ttok,s) and npPushId() + $stok.first.first = "key" and symbolMember?($ttok,s) and npPushId() ++ Parse any infix keyword in the list `s', either in plain syntax ++ or quoted form. @@ -393,7 +393,7 @@ npId() == $stok.first.first = "id" => npPush $stok npNext() - $stok.first.first = "key" and MEMQ($ttok,$npTokToNames) => + $stok.first.first = "key" and symbolMember?($ttok,$npTokToNames) => npPush tokConstruct("id",$ttok,tokPosn $stok) npNext() false |