Fixup ignored variables.

diff --git a/src/runtime/debug.scm b/src/runtime/debug.scm
index 6e4fcaa93acb62edb560064165a1b00c131eba99..07f363d553e512e38a7ab509763c70364bb9d04d 100644 (file)
--- 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))
 \f
 ;;;; Condition commands

diff --git a/src/runtime/http-syntax.scm b/src/runtime/http-syntax.scm
index 13d135ec230ef67f118e9310b2f43a2ba1d77174..52cc0b8cd9a298ef5c7820c85572415e6e6c5af1 100644 (file)
--- 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 e1a199f12894c5db8f734d6810693f2eceed153e..ef5ff45d5604aa58c8e85253b39d66b5586d2bb8 100644 (file)
--- 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 912f56c85ea6caeb0ae10379762170e236c910ae..79fa16a1a6440307dbea260c84210a9f329bab33 100644 (file)
--- 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 5fd8ac894a425916f20a7a30b543138ed14c5664..56dd11fe70fc9a07545489a3b35873ff98581c5c 100644 (file)
--- 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 4563275e02097ba5f5d9119e300be57cc3c7e0a6..e8dd71879b5ec51b9e0bbb3c286853b5db378d7f 100644 (file)
--- a/src/runtime/x11graph.scm
+++ b/src/runtime/x11graph.scm
@@ -368,7 +368,6 @@ USA.
 \f
 (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))