summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-08 10:02:33 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-08 10:02:33 +0000
commitbab246f3345d6fa97ccd698ad66ada18abede481 (patch)
treed1cee66aa51371cba73f55baa86ebc7ce2025175 /libguile/objects.c
parentdcb410ec079dcb20e6589461803fa99e3a3d8dd7 (diff)
downloadguile-bab246f3345d6fa97ccd698ad66ada18abede481.tar.gz
* Fixed some bugs, some reported by Matthias Koeppe.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index 4cec90ba2..a8ece94a3 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 1996, 1999, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -268,7 +268,8 @@ scm_mcache_lookup_cmethod (SCM cache, SCM args)
/* Compute a hash value */
long hashset = SCM_INUM (methods);
long j = n;
- mask = SCM_INUM (SCM_CAR (z = SCM_CDDR (z)));
+ z = SCM_CDDR (z);
+ mask = SCM_INUM (SCM_CAR (z));
methods = SCM_CADR (z);
i = 0;
ls = args;