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 0dd8100e..16c42a95 100644
--- a/src/interp/hashcode.boot
+++ b/src/interp/hashcode.boot
@@ -42,7 +42,7 @@ $DomainsWithoutLisplibs ==
-- Type hasher for old compiler style type names which produces a hash code
-- compatible with the asharp compiler. Takes a hard error if the type
-- is parameterized, but has no constructor modemap.
-getDomainHash dom == SPADCALL(CDR dom, (CAR dom).4)
+getDomainHash dom == SPADCALL(rest dom, (first dom).4)
hashType(type, percentHash) ==
SYMBOLP type =>