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 ba6fb58f..d52781c0 100644 --- a/src/interp/hashcode.boot +++ b/src/interp/hashcode.boot @@ -74,8 +74,8 @@ hashType(type, percentHash) == hash := hashCombine(hashType(arg, percentHash), hash) hash - cmm := CDDAR getConstructorModemap(op) - cosig := CDR GETDATABASE(op, 'COSIG) + cmm := CDDAR getConstructorModemapFromDB op + cosig := rest getDualSignatureFromDB op for arg in args for c in cosig for ct in cmm repeat if c then hash := hashCombine(hashType(arg, percentHash), hash) |