Eliminate "unreferenced bound variable" warnings.

diff --git a/v7/src/runtime/format.scm b/v7/src/runtime/format.scm
index 5ede4c72f3dde477c45a746a1eedd31af1a5ad05..5f8a0cc9718a99a34d8e1b22dc4b719c541c7bd4 100644 (file)
--- 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)))
 \f
 ;;;; 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))