Delete definitions of FIX:MIN and FIX:MAX, which are now defined by

the runtime system.

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index bcb842372949156d0ac9817a2e4e47ff9d6a5dfa..0a479f0bdc69fc7930a625b233fbeb672c9aea1f 100644 (file)
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: bufwin.scm,v 1.306 1999/01/02 06:11:34 cph Exp $
+;;; $Id: bufwin.scm,v 1.307 1999/05/08 19:22:58 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -626,12 +626,6 @@
 
 (define-integrable (%window-modeline-event! window type)
   (window-modeline-event! (window-superior window) type))
-
-(define-integrable (fix:max x y)
-  (if (fix:> x y) x y))
-
-(define-integrable (fix:min x y)
-  (if (fix:< x y) x y))
 \f
 ;;;; Standard Methods
 

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index 34d14c6c6b69f30cc225bf743bd4248fc0d0fd62..df63837cfb55d17c181135bbc854950d9c961c1c 100644 (file)
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: screen.scm,v 1.116 1999/01/02 06:11:34 cph Exp $
+;;; $Id: screen.scm,v 1.117 1999/05/08 19:22:54 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -864,9 +864,6 @@
                                 screen x y nline x x* face)
                                (find-mismatch x**))))))))))))
 \f
-(define-integrable (fix:min x y) (if (fix:< x y) x y))
-(define-integrable (fix:max x y) (if (fix:> x y) x y))
-
 (define-integrable (substring-non-space-start string start end)
   (do ((index start (fix:+ index 1)))
       ((or (fix:= end index)