diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:08:10 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-16 14:08:10 +0000 |
commit | acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882 (patch) | |
tree | 80794b9d25f799edc826d20407339d6384f9b03d /src/interp/buildom.boot | |
parent | 53356dde96d8bc9e264dbd291df8b9b3a75aa5d1 (diff) | |
download | open-axiom-acc3ed6373ce1eef51323efcb7ba3ccf0dc3e882.tar.gz |
cleanup
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r-- | src/interp/buildom.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index 3f1db902..a9c89ca5 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -472,7 +472,7 @@ MappingPrint(x, dom) == coerceMap2E(x) coerceMap2E(x) == -- nrlib domain - ARRAYP rest x => ["theMap", BPINAME first x, + array? rest x => ["theMap", BPINAME first x, if $testingSystem then 0 else HASHEQ(rest x) rem 1000] -- aldor ["theMap", BPINAME first x ] |