Fixup ignored variables.

diff --git a/src/edwin/artdebug.scm b/src/edwin/artdebug.scm
index 2ee444f0457dc17885bc983f920056092e491a0a..fd8f5059d3299b41d72f1b0ae3a95e49b178a451 100644 (file)
--- a/src/edwin/artdebug.scm
+++ b/src/edwin/artdebug.scm
@@ -991,7 +991,6 @@ Prefix argument means do not kill the debugger buffer."
 (define (print-subproblem number frame port)
   (with-values (lambda () (stack-frame/debugging-info frame))
     (lambda (expression environment subexpression)
-      subexpression
       (print-history-level
        (stack-frame/compiled-code? frame)
        number

diff --git a/src/edwin/hlpcom.scm b/src/edwin/hlpcom.scm
index 320ace0975865f1520667b9628076ef68a931123..ed4315493b28c530df3182f554cc49ef17dcb8d9 100644 (file)
--- a/src/edwin/hlpcom.scm
+++ b/src/edwin/hlpcom.scm
@@ -405,7 +405,6 @@ If you want VALUE to be a string, you must surround it with doublequotes."
            (find-escape next comtabs)))
 
     (define (show-bindings argument next comtabs)
-      comtabs
       (cons (call-with-output-string
             (lambda (port)
               (describe-bindings (mode-comtabs (name->mode argument 'ERROR))

diff --git a/src/edwin/intmod.scm b/src/edwin/intmod.scm
index f32d5702a2ba1dcba8a48b9b5a22491f39d8d490..cf61fb85cead836e833adc5b8ddbc335d19d3c5e 100644 (file)
--- a/src/edwin/intmod.scm
+++ b/src/edwin/intmod.scm
@@ -1071,7 +1071,7 @@ If this is an error, the debugger examines the error condition."
                ;; override.
                (enqueue-output-operation! port
                  (lambda (mark transcript?)
-                   mark transcript?
+                   mark
                    (if (not transcript?)
                        (override-next-command!
                         (lambda ()

diff --git a/src/edwin/tterm.scm b/src/edwin/tterm.scm
index 5e6a98aa5b55038ef815ce72934aa9257cfc151f..63d7b71a7e3e02104027910e53b591d69ffd5d1e 100644 (file)
--- a/src/edwin/tterm.scm
+++ b/src/edwin/tterm.scm
@@ -510,7 +510,6 @@ USA.
   unspecific)
 
 (define (console-wrap-update! screen thunk)
-  screen
   (let ((finished? (thunk)))
     (window-direct-output-cursor! (screen-cursor-window screen))
     (output-port/flush-output console-i/o-port)