diff options
Diffstat (limited to 'src/interp/hashcode.boot')
| -rw-r--r-- | src/interp/hashcode.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/hashcode.boot b/src/interp/hashcode.boot index cfae0d52..af6547f6 100644 --- a/src/interp/hashcode.boot +++ b/src/interp/hashcode.boot @@ -57,7 +57,7 @@ hashType(type, percentHash) == isDomain type => getDomainHash type [op, :args] := type hash := hashString symbolName op - op = 'Mapping => + op is 'Mapping => hash := hashString '"->" [retType, :mapArgs] := args for arg in mapArgs repeat @@ -65,11 +65,11 @@ hashType(type, percentHash) == retCode := hashType(retType, percentHash) scalarEq?(retCode, $VoidHash) => hash hashCombine(retCode, hash) - op = 'Enumeration => + op is 'Enumeration => for arg in args repeat hash := hashCombine(hashString(symbolName arg), hash) hash - op in $DomainsWithoutLisplibs => + symbolMember?(op,$DomainsWithoutLisplibs) => for arg in args repeat hash := hashCombine(hashType(arg, percentHash), hash) hash |