summaryrefslogtreecommitdiff
path: root/module/oop/goops/dispatch.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-09-21 00:10:28 +0200
committerLudovic Courtès <ludo@gnu.org>2009-09-21 00:24:08 +0200
commita2ca7252121e968798b0638b758ea99d7bf62409 (patch)
tree4bb8769b1f9c810b0c0fe38c61ef007e9e8c255d /module/oop/goops/dispatch.scm
parentf65e2b1ec5ae1962e57322ac3085ab4d44025694 (diff)
downloadguile-a2ca7252121e968798b0638b758ea99d7bf62409.tar.gz
Remove unused variables in ice-9/goops/srfi/scripts.
* module/ice-9/boot-9.scm (scm-style-repl)[-abort]: Remove. * module/oop/goops.scm (class)[slot-defs]: Remove. (compute-slot-accessors)[name]: Remove. (compute-get-n-set)[env]: Remove. * module/oop/goops/active-slot.scm (compute-get-n-set)[env, name]: Remove. * module/oop/goops/dispatch.scm (cache-try-hash!)[max-misses]: Remove. * module/oop/goops/save.scm (make-mapper)[dims]: Remove. * module/scripts/autofrisk.scm (>>checks)[prog]: Remove. * module/srfi/srfi-19.scm (priv:read-directives)[ireaderf, eireader4]: Remove.
Diffstat (limited to 'module/oop/goops/dispatch.scm')
-rw-r--r--module/oop/goops/dispatch.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
index 0dd169d59..88abf8045 100644
--- a/module/oop/goops/dispatch.scm
+++ b/module/oop/goops/dispatch.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -186,8 +186,7 @@
(set! sum (+ sum (struct-ref (car classes) hashset-index))))))
(define (cache-try-hash! min-misses hashset cache entries)
- (let ((max-misses 0)
- (mask (- (vector-length cache) 1)))
+ (let ((mask (- (vector-length cache) 1)))
(let outer ((in entries) (max-misses 0))
(if (null? in)
max-misses