From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Dec 1986 01:26:33 +0000 (+0000)
Subject: Update to use new primitive `tty-flush-output'.
X-Git-Tag: 20090517-FFI~13786
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d29bfd9566404a79335fe4e8ea177aab836f589c;p=mit-scheme.git

Update to use new primitive `tty-flush-output'.
Requires microcode 9.12 or later.
---

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index f86e73abb..5a701e147 100644
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -37,6 +37,8 @@
 
 ;;;; Output
 
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 1.33 1986/12/20 01:26:33 cph Exp $
+
 (declare (usual-integrations))
 
 ;;;; Output Ports
@@ -90,7 +92,8 @@
   (make-primitive-procedure 'TTY-BEEP))
 
 (define (screen-clear)
-  ((access :clear-screen console-output-port)))
+  ((access :clear-screen console-output-port))
+  ((access :flush-output console-output-port)))
 
 (define console-output-port)
 (let ()
@@ -101,8 +104,8 @@
 (define tty-write-string
   (make-primitive-procedure 'TTY-WRITE-STRING))
 
-;(define tty-flush-output
-;  (make-primitive-procedure 'TTY-FLUSH-OUTPUT))
+(define tty-flush-output
+  (make-primitive-procedure 'TTY-FLUSH-OUTPUT))
 
 (define tty-clear
   (make-primitive-procedure 'TTY-CLEAR))
@@ -120,7 +123,7 @@
 (define (:close) 'DONE)
 (define :write-char tty-write-char)
 (define :write-string tty-write-string)
-(define (:flush-output) 'DONE)
+(define :flush-output tty-flush-output)
 (define :clear-screen tty-clear)
 
 (define (:x-size)