From 2f2221c9db563b40c33321b2f495c3baab0e6d59 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 20 Jul 1989 22:30:29 +0000 Subject: [PATCH] Eliminate "unreferenced bound variable" warning. --- v7/src/cref/forpkg.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/cref/forpkg.scm b/v7/src/cref/forpkg.scm index 26d3f314f..96b22c143 100644 --- a/v7/src/cref/forpkg.scm +++ b/v7/src/cref/forpkg.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/forpkg.scm,v 1.3 1988/12/23 21:38:51 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/forpkg.scm,v 1.4 1989/07/20 22:30:29 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -40,7 +40,8 @@ MIT in each case. |# (define (format-packages pmodel) (let ((indentation " ") (width 79) - (root-package (pmodel/root-package pmodel)) (packages (pmodel/packages pmodel))) + #|(root-package (pmodel/root-package pmodel))|# + (packages (pmodel/packages pmodel))) (let ((free-references (mapcan (lambda (package) (list-transform-negative -- 2.25.1