diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-06 21:17:36 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-06 21:17:36 +0000 |
| commit | 89674096006b286c3c20e0969c493e7f42b56365 (patch) | |
| tree | fe8fe5485d0fed3e41943833f387f1dccd57148a /src/interp/i-analy.boot | |
| parent | 2a44af7ae10c039f26cea6767df41d73a3d795a0 (diff) | |
| download | open-axiom-89674096006b286c3c20e0969c493e7f42b56365.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/i-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 9f4ce9a7..28c5ea5a 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -225,7 +225,7 @@ bottomUp t == null tar => [om] (r := resolveTM(om,tar)) => [r] [om] - if atom op then + if op isnt [.,:.] then opName:= getUnname op if isLocallyBound opName then putModeSet(op,bottomUpIdentifier(op,opName)) @@ -586,7 +586,7 @@ printableArgModeSetList() == amsl := nil for a in reverse $origArgModeSetList repeat b := first a - if atom b then b := [b] + if b isnt [.,:.] then b := [b] amsl := ['"%l",b,:amsl] if amsl then amsl := rest amsl amsl @@ -787,7 +787,7 @@ bottomUpFormAnyUnionRetract(t,op,opName,argl,amsl) == ok := nil for m in amsl while not ok repeat - if atom first(m) then return nil + if first(m) isnt [.,:.] then return nil first m = $Any => ok := true (first first m = 'Union) => ok := true not ok => nil @@ -811,7 +811,7 @@ bottomUpFormUntaggedUnionRetract(t,op,opName,argl,amsl) == ok := nil for [m] in amsl while not ok repeat - if atom m then return nil + if m isnt [.,:.] then return nil if m is ['Union, :.] and null getUnionOrRecordTags m then ok := true not ok => nil |