From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 May 1992 19:43:55 +0000 (+0000)
Subject: WRAP-UPDATE! operation must return result of the THUNK argument as its
X-Git-Tag: 20090517-FFI~9429
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=54cca1a2b116e8d4781fde5555d7d03fa8ba0ea2;p=mit-scheme.git

WRAP-UPDATE! operation must return result of the THUNK argument as its
result.
---

diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm
index d8fded65b..2ba9edc05 100644
--- a/v7/src/edwin/tterm.scm
+++ b/v7/src/edwin/tterm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.16 1992/02/27 00:44:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.17 1992/05/07 19:43:55 cph Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -418,8 +418,9 @@ MIT in each case. |#
 
 (define (console-wrap-update! screen thunk)
   screen
-  (thunk)
-  (output-port/flush-output console-output-port))
+  (let ((finished? (thunk)))
+    (output-port/flush-output console-output-port)
+    finished?))
 
 (define (console-discretionary-flush screen)
   (let ((n (output-port/buffered-chars console-output-port)))