From a2ca7252121e968798b0638b758ea99d7bf62409 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 21 Sep 2009 00:10:28 +0200 Subject: 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. --- module/scripts/autofrisk.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'module/scripts/autofrisk.scm') diff --git a/module/scripts/autofrisk.scm b/module/scripts/autofrisk.scm index e29ccc992..943c90227 100644 --- a/module/scripts/autofrisk.scm +++ b/module/scripts/autofrisk.scm @@ -1,6 +1,6 @@ ;;; autofrisk --- Generate module checks for use with auto* tools -;; Copyright (C) 2002, 2006 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2006, 2009 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License @@ -157,7 +157,6 @@ (files (apply append (map unglob (cfg 'files-glob)))) (ncx (cfg 'non-critical-external)) (nci (cfg 'non-critical-internal)) - (prog (cfg 'non-critical)) (report ((make-frisker) files)) (external (report 'external))) (let ((pww-varname (cfg 'pww-varname))) -- cgit v1.2.3