From 278a26594face14651b639d2e65ce1fb95f72aa5 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 23 Feb 2010 18:09:24 -0800 Subject: [PATCH] Fixup ignored variables. --- src/edwin/artdebug.scm | 1 - src/edwin/hlpcom.scm | 1 - src/edwin/intmod.scm | 2 +- src/edwin/tterm.scm | 1 - 4 files changed, 1 insertion(+), 4 deletions(-) diff --git a/src/edwin/artdebug.scm b/src/edwin/artdebug.scm index 2ee444f04..fd8f5059d 100644 --- 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 320ace097..ed4315493 100644 --- 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 f32d5702a..cf61fb85c 100644 --- 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 5e6a98aa5..63d7b71a7 100644 --- 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) -- 2.25.1