From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 24 Feb 2010 00:32:24 +0000 (-0800)
Subject: Fixup ignored variables.
X-Git-Tag: 20100708-Gtk~155
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32779e2910bb390f625a61d346d7ffce125636ec;p=mit-scheme.git

Fixup ignored variables.
---

diff --git a/src/runtime/debug.scm b/src/runtime/debug.scm
index 6e4fcaa93..07f363d55 100644
--- a/src/runtime/debug.scm
+++ b/src/runtime/debug.scm
@@ -694,7 +694,6 @@ USA.
   (debug/read-eval-print-1 (get-evaluation-environment dstate port) port))
 
 (define-command (command/enter-where dstate port)
-  port
   (with-current-environment dstate port debug/where))
 
 ;;;; Condition commands
diff --git a/src/runtime/http-syntax.scm b/src/runtime/http-syntax.scm
index 13d135ec2..52cc0b8cd 100644
--- a/src/runtime/http-syntax.scm
+++ b/src/runtime/http-syntax.scm
@@ -879,7 +879,7 @@ USA.
 	   (define (compile-rhs clause vars)
 	     (let ((rhs (cdr clause)))
 	       `(LAMBDA (,@vars PORT EMIT FIFO)
-		  ,@vars PORT EMIT FIFO
+		  (DECLARE (IGNORABLE ,@vars PORT EMIT FIFO))
 		  ,@(map compile-action (except-last-pair rhs))
 		  ,(let ((ns (last rhs)))
 		     (cond ((eq? ns 'DONE)
diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index e1a199f12..ef5ff45d5 100644
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -195,13 +195,13 @@ USA.
 (define-syntax :let*
   (er-macro-transformer
    (lambda (form rename compare)
-     rename compare			;ignore
+     compare			;ignore
      (expand/let* form (rename 'LET)))))
 
 (define-syntax :let*-syntax
   (er-macro-transformer
    (lambda (form rename compare)
-     rename compare			;ignore
+     compare			;ignore
      (expand/let* form (rename 'LET-SYNTAX)))))
 
 (define (expand/let* form let-keyword)
diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index 912f56c85..79fa16a1a 100644
--- a/src/runtime/mit-syntax.scm
+++ b/src/runtime/mit-syntax.scm
@@ -323,7 +323,6 @@ USA.
      (compile-item/expression (access-item/environment item)))))
 
 (define (compiler:the-environment form environment)
-  environment
   (syntax-check '(KEYWORD) form)
   (if (not (syntactic-environment/top-level? environment))
       (syntax-error "This form allowed only at top level:" form))
diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 5fd8ac894..56dd11fe7 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -183,7 +183,7 @@ USA.
   continue-parsing)
 
 (define (handler:comment port db ctx char)
-  db ctx char
+  ctx char
   (let loop ()
     (let ((char (%read-char port db)))
       (cond ((eof-object? char) char)
@@ -192,7 +192,7 @@ USA.
   continue-parsing)
 
 (define (handler:multi-line-comment port db ctx char1 char2)
-  db ctx char1 char2
+  ctx char1 char2
   (let loop ()
     (case (%read-char/no-eof port db)
       ((#\#)
@@ -429,7 +429,7 @@ USA.
       (list 'UNQUOTE (read-object port db))))
 
 (define (handler:string port db ctx char)
-  db ctx char
+  ctx char
   (call-with-output-string
     (lambda (port*)
       (let loop ()
@@ -500,7 +500,7 @@ USA.
 	     result))))))
 
 (define (handler:char port db ctx char1 char2)
-  db ctx char1 char2
+  ctx char1 char2
   (let ((char (%read-char/no-eof port db))
 	(at-end?
 	 (lambda ()
diff --git a/src/runtime/x11graph.scm b/src/runtime/x11graph.scm
index 4563275e0..e8dd71879 100644
--- a/src/runtime/x11graph.scm
+++ b/src/runtime/x11graph.scm
@@ -368,7 +368,6 @@ USA.
 
 (define-event-handler event-type:configure
   (lambda (window event)
-    window
     (x-graphics-reconfigure (vector-ref event 1)
 			    (vector-ref event 2)
 			    (vector-ref event 3))