mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

Remove unused variables in ice-9/goops/srfi/scripts.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2009-09-21 00:10:28 +02:00
parent f65e2b1ec5
commit a2ca725212
7 changed files with 12 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/srfi/srfi-19.scm
View file

@ -1,6 +1,6 @@
;;; srfi-19.scm --- Time/Date Library
;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 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
@ -1345,9 +1345,7 @@
(define priv:read-directives
(let ((ireader4 (priv:make-integer-reader 4))
(ireader2 (priv:make-integer-reader 2))
(ireaderf (priv:make-integer-reader #f))
(eireader2 (priv:make-integer-exact-reader 2))
(eireader4 (priv:make-integer-exact-reader 4))
(locale-reader-abbr-weekday (priv:make-locale-reader
priv:locale-abbr-weekday->index))
(locale-reader-long-weekday (priv:make-locale-reader