diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-08 10:02:33 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-08 10:02:33 +0000 |
commit | bab246f3345d6fa97ccd698ad66ada18abede481 (patch) | |
tree | d1cee66aa51371cba73f55baa86ebc7ce2025175 /libguile/objects.c | |
parent | dcb410ec079dcb20e6589461803fa99e3a3d8dd7 (diff) | |
download | guile-bab246f3345d6fa97ccd698ad66ada18abede481.tar.gz |
* Fixed some bugs, some reported by Matthias Koeppe.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r-- | libguile/objects.c | 5 |
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; |