Fix unreferenced-variable warning.

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 709f781e5d42f92b060cc454c5c826a9dffcaec3..73b8cca30e0d345fb34284dfab3361a3ab259230 100644 (file)
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: debug.scm,v 1.67 2004/02/16 05:43:03 cph Exp $
+$Id: debug.scm,v 1.68 2004/12/06 21:26:13 cph Exp $
 
 Copyright 1992,1993,1994,1995,1996,1997 Massachusetts Institute of Technology
 Copyright 1998,1999,2000,2001,2002,2003 Massachusetts Institute of Technology
@@ -454,6 +454,7 @@ USA.
                         (call-with-interface-port
                          (buffer-end buffer)
                          (lambda (port)
+                           port
                            (hook/repl-eval #f
                                            (prompt-for-expression prompt)
                                            (if (default-object? environment)

diff --git a/v7/src/runtime/format.scm b/v7/src/runtime/format.scm
index 815f254b0c134c885d09f8c520659ced1e65c9fb..ba9a75bb6aee80d2e26905c1eaa7fc22b68240af 100644 (file)
--- a/v7/src/runtime/format.scm
+++ b/v7/src/runtime/format.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: format.scm,v 14.8 2003/02/14 18:28:32 cph Exp $
+$Id: format.scm,v 14.9 2004/12/06 21:17:03 cph Exp $
 
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
+Copyright 1986,1987,1988,1991,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -149,15 +149,17 @@ USA.
 \f
 ;;;; Formatters
 
-(define (((format-insert-character character) modifiers #!optional n)
-        port string arguments)
-  (if (default-object? n)
-      (output-port/write-char port character)
-      (let loop ((i 0))
-       (if (not (= i n))
-           (begin (output-port/write-char port character)
-                  (loop (1+ i))))))
-  (format-loop port string arguments))
+(define (format-insert-character character)
+  (lambda (modifiers #!optional n)
+    modifiers
+    (lambda (port string arguments)
+      (if (default-object? n)
+         (output-port/write-char port character)
+         (let loop ((i 0))
+           (if (not (= i n))
+               (begin (output-port/write-char port character)
+                      (loop (1+ i))))))
+      (format-loop port string arguments))))
 
 (define ((format-ignore-comment modifiers) port string arguments)
   modifiers                            ;ignore

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index e190a7e19851905067c7dc8de314be77e5534ef3..7894cd4f1a83efb0df8d82f1795c86ad651f4dcf 100644 (file)
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.67 2004/11/19 17:28:51 cph Exp $
+$Id: load.scm,v 14.68 2004/12/06 21:21:44 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1999,2000,2001,2002,2003 Massachusetts Institute of Technology
@@ -558,6 +558,8 @@ USA.
 ;;;; Loader for packed binaries
 
 (define (load-packed-binaries pathname fname count environment)
+  fname
+
   (define (process-bunch alist)
     (let ((real-load load)
          (real-fasload fasload)

diff --git a/v7/src/runtime/regexp.scm b/v7/src/runtime/regexp.scm
index 60b96ef0ade0f2e5b15e5f8ac5dc909a3714a063..0b2c66421d0debfa027590d0373073a7ef726cf8 100644 (file)
--- a/v7/src/runtime/regexp.scm
+++ b/v7/src/runtime/regexp.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: regexp.scm,v 1.13 2003/03/07 21:22:51 cph Exp $
+$Id: regexp.scm,v 1.14 2004/12/06 21:27:31 cph Exp $
 
-Copyright 1986, 1989-1999 Massachusetts Institute of Technology
+Copyright 1999,2000,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -81,7 +81,7 @@ USA.
             (re-match-start-index i regs)
             (re-match-end-index i regs)))
 \f
-(define (make-substring-operation name primitive)
+(define (make-substring-operation primitive)
   (lambda (regexp string start end #!optional case-fold? syntax-table)
     (let ((regexp
           (if (compiled-regexp? regexp)
@@ -102,16 +102,13 @@ USA.
           (make-re-registers regs)))))
 
 (define re-substring-match
-  (make-substring-operation 'RE-SUBSTRING-MATCH
-                           (ucode-primitive re-match-substring)))
+  (make-substring-operation (ucode-primitive re-match-substring)))
 
 (define re-substring-search-forward
-  (make-substring-operation 'RE-SUBSTRING-SEARCH-FORWARD
-                           (ucode-primitive re-search-substring-forward)))
+  (make-substring-operation (ucode-primitive re-search-substring-forward)))
 
 (define re-substring-search-backward
-  (make-substring-operation 'RE-SUBSTRING-SEARCH-BACKWARD
-                           (ucode-primitive re-search-substring-backward)))
+  (make-substring-operation (ucode-primitive re-search-substring-backward)))
 
 (define (make-string-operation substring-operation)
   (lambda (regexp string #!optional case-fold? syntax-table)

diff --git a/v7/src/runtime/unicode.scm b/v7/src/runtime/unicode.scm
index bf584ca2e06398c82cfd74a9436aaa1d33674e63..d89f7ce6757c48d15649686150d87d1ab30d0754 100644 (file)
--- a/v7/src/runtime/unicode.scm
+++ b/v7/src/runtime/unicode.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unicode.scm,v 1.20 2004/11/19 18:11:29 cph Exp $
+$Id: unicode.scm,v 1.21 2004/12/06 21:27:35 cph Exp $
 
 Copyright 2001,2003,2004 Massachusetts Institute of Technology
 
@@ -1312,7 +1312,7 @@ USA.
                  (write-string suffix output-port)))))
          #f)))
     (lambda (bytes #!optional start end)
-      (make-port type (open-input-byte-buffer string start end #f)))))
+      (make-port type (open-input-byte-buffer bytes start end #f)))))
 
 (define (utf-string->wide-string string start end source-char caller)
   (let ((source (open-input-byte-buffer string start end caller)))