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/as.boot | |
| parent | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (diff) | |
| download | open-axiom-faaf19e1912ba48e9fbd195d2b90c4e205c87538.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/as.boot')
| -rw-r--r-- | src/interp/as.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/as.boot b/src/interp/as.boot index cef308e2..6652448e 100644 --- a/src/interp/as.boot +++ b/src/interp/as.boot @@ -156,7 +156,7 @@ asMakeAlist con == SUBLISLIS($FormalMapVariableList,KDR form,LASSOC(con,$docAlist)) filestring := strconc(PATHNAME_-NAME STRINGIMAGE filename,'".as") constantPart := HGET($constantHash,con) and [['constant,:true]] - niladicPart := MEMQ(con,$niladics) and [['NILADIC,:true]] + niladicPart := symbolMember?(con,$niladics) and [['NILADIC,:true]] falist := TAKE(#KDR form,$FormalMapVariableList) constructorCategory := kind = 'category => @@ -391,7 +391,7 @@ asyAncestors x == x is [op,y,:.] and op in '(PretendTo RestrictTo) => asyAncestors y atom x => x = '_% => '_$ - MEMQ(x, $niladics) => [x] + symbolMember?(x, $niladics) => [x] niladicConstructorFromDB x => [x] x asyAncestorList x @@ -975,7 +975,7 @@ asyFindAttrs l == for x in l repeat x0 := x while cons? x repeat x := first x - if MEMQ(x, $BuiltinAttributes) then attrs := [:attrs, x] + if symbolMember?(x, $BuiltinAttributes) then attrs := [:attrs, x] else notattrs := [:notattrs, x0] [attrs, notattrs] |