From c29baba6861870c6206f1963cf7b1db38d1d3fea Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Jul 1988 15:17:55 +0000
Subject: [PATCH] Eliminate "unreferenced bound variable" warnings.

---
 v7/src/runtime/format.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/format.scm b/v7/src/runtime/format.scm
index 5ede4c72f..5f8a0cc97 100644
--- a/v7/src/runtime/format.scm
+++ b/v7/src/runtime/format.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/format.scm,v 14.1 1988/07/07 15:13:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/format.scm,v 14.2 1988/07/07 15:17:55 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -112,6 +112,7 @@ MIT in each case. |#
 
 (define (parse-default port string supplied-arguments parsed-arguments
 		       modifiers)
+  port supplied-arguments parsed-arguments modifiers ;ignore
   (error "FORMAT: Unknown formatting character" (string-ref string 0)))
 
 ;;;; Argument Parsing
@@ -175,6 +176,7 @@ MIT in each case. |#
   (format-loop port string arguments))
 
 (define ((format-ignore-comment modifiers) port string arguments)
+  modifiers				;ignore
   (format-loop port
 	       (substring string
 			  (1+ (string-find-next-char string #\Newline))
-- 
2.25.1