aboutsummaryrefslogtreecommitdiff
path: root/src/interp/hashcode.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/hashcode.boot')
-rw-r--r--src/interp/hashcode.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/hashcode.boot b/src/interp/hashcode.boot
index af6547f6..0368d4bb 100644
--- a/src/interp/hashcode.boot
+++ b/src/interp/hashcode.boot
@@ -74,7 +74,7 @@ hashType(type, percentHash) ==
hash := hashCombine(hashType(arg, percentHash), hash)
hash
- cmm := CDDAR getConstructorModemapFromDB op
+ cmm := getConstructorModemapFromDB(op).mmSource
cosig := rest getDualSignatureFromDB op
for arg in args for c in cosig for ct in cmm repeat
if c then