Change FALSE to #F and TRUE to #T.

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index 3d8553fcd593b7e3bbaedc2f9fef2766ee3ce968..72bd9f6f9d47322fb1243279f6c3ee804d6b0ee9 100644 (file)
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: bufwin.scm,v 1.308 2000/04/10 02:27:47 cph Exp $
+;;; $Id: bufwin.scm,v 1.309 2000/04/10 02:30:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -227,7 +227,7 @@
   (%set-window-point! window
                      (make-permanent-mark (%window-group window)
                                           index
-                                          true)))
+                                          #t)))
 
 (define-integrable (%window-cursor-inferior window)
   (with-instance-variables buffer-window window () cursor-inferior))
@@ -509,7 +509,7 @@
           (if (%window-free-outline window)
               (begin
                 (let ((free (outline-next outline)))
-                  (if free (set-outline-previous! free false))
+                  (if free (set-outline-previous! free #f))
                   (%set-window-free-outline! window free))
                 (set-outline-index-length! outline index-length)
                 (set-outline-y-size! outline y-size)
@@ -524,13 +524,13 @@
 (define (deallocate-outlines! window start-outline end-outline)
   (let ((free-outline (%window-free-outline window)))
     (if (outline-next end-outline)
-       (set-outline-previous! (outline-next end-outline) false))
+       (set-outline-previous! (outline-next end-outline) #f))
     (set-outline-next! end-outline free-outline)
     (if free-outline
        (set-outline-previous! free-outline end-outline)))
   (if (outline-previous start-outline)
-      (set-outline-next! (outline-previous start-outline) false))
-  (set-outline-previous! start-outline false)
+      (set-outline-next! (outline-previous start-outline) #f))
+  (set-outline-previous! start-outline #f)
   (%set-window-free-outline! window start-outline))
 
 (define-integrable (outline-last outline)
@@ -612,10 +612,11 @@
 (define (%window-line-start-index? window index)
   (or (%window-group-start-index? window index)
       (char=? (string-ref (group-text (%window-group window))
-                         (fix:-1+ (group-index->position-integrable
-                                   (%window-group window)
-                                   index
-                                   false)))
+                         (fix:- (group-index->position-integrable
+                                 (%window-group window)
+                                 index
+                                 #f)
+                                1))
              #\newline)))
 
 (define (%window-line-end-index? window index)
@@ -624,7 +625,7 @@
                          (group-index->position-integrable
                           (%window-group window)
                           index
-                          true))
+                          #t))
              #\newline)))
 
 (define (clip-mark-to-display window mark)
@@ -745,7 +746,7 @@
                                           (%window-saved-yu window)
                                           display-style)))
               (if finished?
-                  (set-car! (window-redisplay-flags window) false))
+                  (set-car! (window-redisplay-flags window) #f))
               finished?))))))
 
 (define (update-buffer-window! window screen x-start y-start xl xu yl yu
@@ -765,7 +766,7 @@
   (if (%window-debug-trace window)
       ((%window-debug-trace window) 'window window 'force-redraw!))
   (let ((mask (set-interrupt-enables! interrupt-mask/gc-ok)))
-    (%set-window-force-redraw?! window true)
+    (%set-window-force-redraw?! window #t)
     (%recache-window-buffer-local-variables! window)
     (%clear-window-incremental-redisplay-state! window)
     (window-needs-redisplay! window)
@@ -779,21 +780,21 @@
   (%set-window-cursor-inferior! window (make-inferior window cursor-window))
   (%set-window-blank-inferior! window (make-inferior window blank-window))
   (%release-window-outlines! window)
-  (%set-window-free-o3! window false)
-  (%set-window-override-string! window false)
+  (%set-window-free-o3! window #f)
+  (%set-window-override-string! window #f)
   (%set-window-clip-daemon! window (make-clip-daemon window))
-  (%set-window-debug-trace! window false)
-  (%set-window-saved-screen! window false)
-  (%set-window-force-redraw?! window false))
+  (%set-window-debug-trace! window #f)
+  (%set-window-saved-screen! window #f)
+  (%set-window-force-redraw?! window #f))
 
 (define (%release-window-outlines! window)
-  (%set-window-start-outline! window false)
-  (%set-window-end-outline! window false)
-  (%set-window-free-outline! window false))
+  (%set-window-start-outline! window #f)
+  (%set-window-end-outline! window #f)
+  (%set-window-free-outline! window #f))
 
 (define (%clear-window-buffer-state! window)
-  (%set-window-buffer! window false)
-  (%set-window-point! window false)
+  (%set-window-buffer! window #f)
+  (%set-window-point! window #f)
   (clear-window-start! window)
   (%clear-window-incremental-redisplay-state! window))
 
@@ -803,14 +804,14 @@
        (deallocate-outlines! window
                              (%window-start-outline window)
                              (%window-end-outline window))
-       (%set-window-start-outline! window false)
-       (%set-window-end-outline! window false)))
+       (%set-window-start-outline! window #f)
+       (%set-window-end-outline! window #f)))
   (if (%window-current-start-mark window)
       (begin
        (mark-temporary! (%window-current-start-mark window))
-       (%set-window-current-start-mark! window false)
+       (%set-window-current-start-mark! window #f)
        (mark-temporary! (%window-current-end-mark window))
-       (%set-window-current-end-mark! window false)
+       (%set-window-current-end-mark! window #f)
        (%set-window-current-start-delta! window #f)
        (%set-window-current-start-partial! window #f)))
   (%clear-window-outstanding-changes! window))
@@ -821,10 +822,10 @@
   (if (%window-start-clip-mark window)
       (begin
        (mark-temporary! (%window-start-clip-mark window))
-       (%set-window-start-clip-mark! window false)
+       (%set-window-start-clip-mark! window #f)
        (mark-temporary! (%window-end-clip-mark window))
-       (%set-window-end-clip-mark! window false)))
-  (%set-window-point-moved?! window false))
+       (%set-window-end-clip-mark! window #f)))
+  (%set-window-point-moved?! window #f))
 \f
 (define-integrable (update-modified-tick! window)
   (%set-window-modified-tick! window
@@ -879,7 +880,7 @@
       (set-new-coordinates! window
                            (mark-index (buffer-display-start new-buffer))
                            0
-                           false))
+                           #f))
   (buffer-window/redraw! window))
 
 (define (%unset-window-buffer! window)
@@ -1005,9 +1006,7 @@ This number is a percentage, where 0 is the window's top and 100 the bottom."
                     window
                     (%window-start-line-mark window)))))
            (let ((mark
-                  (make-permanent-mark (%window-group window)
-                                       start-line
-                                       false)))
+                  (make-permanent-mark (%window-group window) start-line #f)))
              (%set-window-start-line-mark! window mark)
              (%set-window-start-mark! window mark)))
        (if (%window-start-line-mark window)
@@ -1017,20 +1016,20 @@ This number is a percentage, where 0 is the window's top and 100 the bottom."
                       (%window-start-mark window))
                  (%set-window-start-mark!
                   window
-                  (make-permanent-mark (%window-group window) start false))
+                  (make-permanent-mark (%window-group window) start #f))
                  (set-mark-index! (%window-start-mark window) start)))
            (let ((group (%window-group window)))
              (%set-window-start-line-mark!
               window
-              (make-permanent-mark group start-line false))
+              (make-permanent-mark group start-line #f))
              (%set-window-start-mark!
               window
-              (make-permanent-mark group start false))))))
+              (make-permanent-mark group start #f))))))
   (%set-window-start-line-y! window (vector-ref cws 1))
   (%set-window-start-column! window (vector-ref cws 3))
   (%set-window-start-partial! window (vector-ref cws 4))
   (if (eq? (%window-point-moved? window) 'SINCE-START-SET)
-      (%set-window-point-moved?! window true))
+      (%set-window-point-moved?! window #t))
   (window-needs-redisplay! window))
 
 (define (clear-window-start! window)
@@ -1091,7 +1090,7 @@ This number is a percentage, where 0 is the window's top and 100 the bottom."
                             (if (predict-y-limited window start-line
                                                    start-y point
                                                    0 y-size)
-                                (%set-window-point-moved?! window true)
+                                (%set-window-point-moved?! window #t)
                                 (index-at! point
                                            (buffer-window/y-center window)))
                             (let ((y
@@ -1109,7 +1108,7 @@ This number is a percentage, where 0 is the window's top and 100 the bottom."
                                     ((fix:>= y y-size)
                                      (index-at! point
                                                 (fix:- y scroll-step)))))))
-                      (%set-window-point-moved?! window true)))))))))
+                      (%set-window-point-moved?! window #t)))))))))
 
 (define-variable scroll-step
   "The number of lines to try scrolling a window by when point moves out.
@@ -1142,7 +1141,7 @@ If this is zero, point is always centered after it moves off screen."
            ((%window-debug-trace window) 'window window
                                          'clear-override-message!))
        (let ((mask (set-interrupt-enables! interrupt-mask/gc-ok)))
-         (%set-window-override-string! window false)
+         (%set-window-override-string! window #f)
          (buffer-window/redraw! window)
          (set-interrupt-enables! mask)
          unspecific))))
@@ -1159,11 +1158,10 @@ If this is zero, point is always centered after it moves off screen."
            (results substring-image-results))
        (let ((end (string-length string))
              (line
-              (screen-get-output-line screen (fix:+ y-start yl) xl xu
-                                      false)))
+              (screen-get-output-line screen (fix:+ y-start yl) xl xu #f)))
          (substring-image! string 0 end
                            line xl (fix:- xu 1)
-                           false 0 results
+                           #f 0 results
                            (%window-char-image-strings window))
          (if (fix:= (vector-ref results 0) end)
              (do ((x (vector-ref results 1) (fix:+ x 1)))
@@ -1173,7 +1171,7 @@ If this is zero, point is always centered after it moves off screen."
          (set-inferior-start! (%window-cursor-inferior window)
                               (vector-ref results 1)
                               0))))
-  (%update-blank-inferior! window 1 true)
+  (%update-blank-inferior! window 1 #t)
   (update-modified-tick! window))
 \f
 ;;;; Update Finalization
@@ -1188,10 +1186,10 @@ If this is zero, point is always centered after it moves off screen."
       (begin
        (%set-window-current-start-mark!
         window
-        (make-permanent-mark (%window-group window) (o3-index start) false))
+        (make-permanent-mark (%window-group window) (o3-index start) #f))
        (%set-window-current-end-mark!
         window
-        (make-permanent-mark (%window-group window) (o3-index end) true))))
+        (make-permanent-mark (%window-group window) (o3-index end) #t))))
   (%set-window-current-start-delta! window
                                    (fix:- (%window-start-index window)
                                           (%window-start-line-index window)))
@@ -1200,7 +1198,7 @@ If this is zero, point is always centered after it moves off screen."
   (%set-window-current-end-y! window (o3-y end))
   (deallocate-o3! window start)
   (deallocate-o3! window end)
-  (update-blank-inferior! window true)
+  (update-blank-inferior! window #t)
   (update-cursor! window)
   (%window-modeline-event! window 'SET-OUTLINES))
 
@@ -1220,8 +1218,8 @@ If this is zero, point is always centered after it moves off screen."
          (if signal?
              (setup-redisplay-flags! (inferior-redisplay-flags inferior))))
        (begin
-         (%set-inferior-x-start! inferior false)
-         (%set-inferior-y-start! inferior false)))))
+         (%set-inferior-x-start! inferior #f)
+         (%set-inferior-y-start! inferior #f)))))
 
 (define (update-cursor! window)
   (let ((xy (buffer-window/point-coordinates window)))

diff --git a/v7/src/edwin/bufwiu.scm b/v7/src/edwin/bufwiu.scm
index d76db27aa20eaac385002b1cdde56e6191648740..607b5bd90b38e4d852de4c5fc6ea1542adae6ff4 100644 (file)
--- a/v7/src/edwin/bufwiu.scm
+++ b/v7/src/edwin/bufwiu.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: bufwiu.scm,v 1.33 2000/04/10 02:27:41 cph Exp $
+;;; $Id: bufwiu.scm,v 1.34 2000/04/10 02:31:17 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -98,12 +98,12 @@
                 window
                 (make-permanent-mark group
                                      (group-display-start-index group)
-                                     true))
+                                     #t))
                (%set-window-end-clip-mark!
                 window
                 (make-permanent-mark group
                                      (group-display-end-index group)
-                                     false))))
+                                     #f))))
          (begin
            (if (fix:> start (%window-start-clip-index window))
                (set-mark-index! (%window-start-clip-mark window) start))
@@ -137,7 +137,7 @@
   (%guarantee-start-mark! window)
   (if (%window-force-redraw? window)
       (begin
-       (%set-window-force-redraw?! window false)
+       (%set-window-force-redraw?! window #f)
        (preserve-nothing! window))
       (let ((start (%window-current-start-index window))
            (end (%window-current-end-index window)))
@@ -352,8 +352,8 @@
            outline)))))
 
 (define (regenerate-outlines window wlstart wlsy)
-  (let ((start (make-o3 window false wlstart wlsy))
-       (end (make-o3 window false false false)))
+  (let ((start (make-o3 window #f wlstart wlsy))
+       (end (make-o3 window #f #f #f)))
     (generate-outlines window start end)
     (set-outlines! window start end)))
 
@@ -372,9 +372,9 @@
           (deallocate-outlines! window (o3-outline start) (o3-outline end))
           (deallocate-o3! window start)
           (deallocate-o3! window end)
-          false)
+          #f)
          ((fix:= (o3-y start) y)
-          true)
+          #t)
          ((fix:< (o3-y start) y)
           (scroll-lines-down window start end y))
          (else
@@ -458,7 +458,7 @@
        (fix:+ (%window-saved-x-start window) x-start)
        (fix:+ (%window-saved-y-start window) y-start)
        char
-       false)
+       #f)
       (let ((outline (direct-output-outline window y-start)))
        (set-outline-index-length! outline
                                   (fix:+ (outline-index-length outline) 1)))
@@ -485,7 +485,7 @@
        (fix:+ (%window-saved-x-start window) x-start)
        (fix:+ (%window-saved-y-start window) y-start)
        string start end
-       false)
+       #f)
       (let ((outline (direct-output-outline window y-start)))
        (set-outline-index-length! outline
                                   (fix:+ (outline-index-length outline)
@@ -520,9 +520,9 @@
                                               end-y))
       (%set-window-end-outline!
        window
-       (make-outline window 0 1 (%window-end-outline window) false))
+       (make-outline window 0 1 (%window-end-outline window) #f))
       (%set-window-current-end-y! window (fix:+ end-y 1))
-      (update-blank-inferior! window false)
+      (update-blank-inferior! window #f)
       (%set-inferior-x-start! (%window-cursor-inferior window) 0)
       (%set-inferior-y-start! (%window-cursor-inferior window) end-y))
     (update-modified-tick! window)