aboutsummaryrefslogtreecommitdiff
path: root/src/interp/buildom.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r--src/interp/buildom.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot
index 73e007ae..1488064b 100644
--- a/src/interp/buildom.boot
+++ b/src/interp/buildom.boot
@@ -240,7 +240,7 @@ MappingPrint(x, dom) == coerceMap2E(x)
coerceMap2E(x) ==
-- nrlib domain
ARRAYP rest x => ["theMap", BPINAME first x,
- if $testingSystem then 0 else REMAINDER(HASHEQ rest x, 1000)]
+ if $testingSystem then 0 else HASHEQ(rest x) rem 1000]
-- aldor
["theMap", BPINAME first x ]