diff options
Diffstat (limited to 'src/interp/hashcode.boot')
| -rw-r--r-- | src/interp/hashcode.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/hashcode.boot b/src/interp/hashcode.boot index 16c42a95..96161cc9 100644 --- a/src/interp/hashcode.boot +++ b/src/interp/hashcode.boot @@ -45,11 +45,11 @@ $DomainsWithoutLisplibs == getDomainHash dom == SPADCALL(rest dom, (first dom).4) hashType(type, percentHash) == - SYMBOLP type => + symbol? type => type = '$ => percentHash type = "%" => percentHash hashString SYMBOL_-NAME type - STRINGP type => hashCombine(hashString type, + string? type => hashCombine(hashString type, hashString('"Enumeration")) type is ['QUOTE, val] => hashType(val, percentHash) type is [dom] => hashString SYMBOL_-NAME dom |