diff options
Diffstat (limited to 'module/oop/goops')
-rw-r--r-- | module/oop/goops/active-slot.scm | 4 | ||||
-rw-r--r-- | module/oop/goops/dispatch.scm | 5 | ||||
-rw-r--r-- | module/oop/goops/save.scm | 5 |
3 files changed, 5 insertions, 9 deletions
diff --git a/module/oop/goops/active-slot.scm b/module/oop/goops/active-slot.scm index 5cd2afe10..79aa1b3f2 100644 --- a/module/oop/goops/active-slot.scm +++ b/module/oop/goops/active-slot.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1999, 2001, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2001, 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 @@ -34,9 +34,7 @@ (define-method (compute-get-n-set (class <active-class>) slot) (if (eq? (slot-definition-allocation slot) #:active) (let* ((index (slot-ref class 'nfields)) - (name (car slot)) (s (cdr slot)) - (env (class-environment class)) (before-ref (get-keyword #:before-slot-ref s #f)) (after-ref (get-keyword #:after-slot-ref s #f)) (before-set! (get-keyword #:before-slot-set! s #f)) 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 diff --git a/module/oop/goops/save.scm b/module/oop/goops/save.scm index 0c7d71a2d..b500a0c32 100644 --- a/module/oop/goops/save.scm +++ b/module/oop/goops/save.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 2000,2001,2002, 2006 Free Software Foundation, Inc. +;;;; Copyright (C) 2000,2001,2002, 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 @@ -183,8 +183,7 @@ (enumerate-component! (shared-array-root o) env)) (define (make-mapper array) - (let* ((dims (array-dimensions array)) - (n (array-rank array)) + (let* ((n (array-rank array)) (indices (reverse (if (<= n 11) (list-tail '(t s r q p n m l k j i) (- 11 n)) (let loop ((n n) |