From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Aug 1993 08:04:03 +0000 (+0000)
Subject: Initialize cursor X and Y of a screen matrix to 0, not #F.
X-Git-Tag: 20090517-FFI~8063
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a43005a7ca039982e39e53ccb4dc1d6fc836ee77;p=mit-scheme.git

Initialize cursor X and Y of a screen matrix to 0, not #F.
---

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index c5e29009b..9f5508e2c 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: screen.scm,v 1.102 1993/08/13 01:35:02 jawilson Exp $
+;;;	$Id: screen.scm,v 1.103 1993/08/16 08:04:03 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -275,8 +275,8 @@
       (set-matrix-highlight! matrix highlight)
       (set-matrix-enable! matrix enable)
       (set-matrix-highlight-enable! matrix highlight-enable))
-    (set-matrix-cursor-x! matrix false)
-    (set-matrix-cursor-y! matrix false)
+    (set-matrix-cursor-x! matrix 0)
+    (set-matrix-cursor-y! matrix 0)
     matrix))
 
 (define (set-screen-size! screen x-size y-size)