Revert previous change, which was really due to a bug in the runtime
authorChris Hanson <org/chris-hanson/cph>
Mon, 1 Mar 1999 05:32:04 +0000 (05:32 +0000)
committerChris Hanson <org/chris-hanson/cph>
Mon, 1 Mar 1999 05:32:04 +0000 (05:32 +0000)
system's handling of input events.

v7/src/edwin/nntp.scm

index 4e3d145e5e150b34a4fecdec700ae750a474d857..716740f6148151e6cb4f0682aed2956cbde0165f 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: nntp.scm,v 1.23 1999/02/28 06:22:09 cph Exp $
+;;; $Id: nntp.scm,v 1.24 1999/03/01 05:32:04 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-1999 Massachusetts Institute of Technology
 ;;;
                                       replies)))
            ((eq? numbers numbers*) replies)
          (if (fix:= 0 (fix:remainder n-received 16))
-             (begin
-               (message msg
-                        n-received
-                        " ("
-                        (integer-round (* n-received 100) n-to-read)
-                        "%)")
-               (update-screens! #f)))
+             (message msg
+                      n-received
+                      " ("
+                      (integer-round (* n-received 100) n-to-read)
+                      "%)"))
          (set! n-received (fix:+ n-received 1))))
 
       (message msg)