diff options
author | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
commit | 9a593e3b395c1ba0c6036760c12713d7485f8c54 (patch) | |
tree | dd8eadbf07dde50ca15d6aa4181c902ad7b09d3c /src/interp/br-search.boot | |
parent | e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (diff) | |
download | open-axiom-9a593e3b395c1ba0c6036760c12713d7485f8c54.tar.gz |
cleanup
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r-- | src/interp/br-search.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index fd0eef31..3622b118 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -369,7 +369,7 @@ looksLikeDomainForm x == and/[p for key in rest coSig for arg in rest x] where p() == key => looksLikeDomainForm arg - not IDENTP arg + not ident? arg spadSys(x) == --called by \spadsyscom{x} s := PNAME x @@ -716,7 +716,7 @@ dbWordFrom(l,i) == [buf,k] conLowerCaseConTran x == - IDENTP x => IFCAR tableValue($lowerCaseConTb, x) or x + ident? x => IFCAR tableValue($lowerCaseConTb, x) or x atom x => x [conLowerCaseConTran y for y in x] @@ -725,7 +725,7 @@ string2Constructor x == IFCAR tableValue($lowerCaseConTb, makeSymbol DOWNCASE x) or x conLowerCaseConTranTryHarder x == - IDENTP x => IFCAR tableValue($lowerCaseConTb,DOWNCASE x) or x + ident? x => IFCAR tableValue($lowerCaseConTb,DOWNCASE x) or x atom x => x [conLowerCaseConTranTryHarder y for y in x] |