From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Dec 2004 21:27:35 +0000 (+0000)
Subject: Fix unreferenced-variable warning.
X-Git-Tag: 20090517-FFI~1425
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d34a3f5af8bdf7d69a53352b1813bbc402ade25;p=mit-scheme.git

Fix unreferenced-variable warning.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 709f781e5..73b8cca30 100644
--- 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 815f254b0..ba9a75bb6 100644
--- 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.
 
 ;;;; 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 e190a7e19..7894cd4f1 100644
--- 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 60b96ef0a..0b2c66421 100644
--- 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)))
 
-(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 bf584ca2e..d89f7ce67 100644
--- 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)))