From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 May 1999 19:22:58 +0000 (+0000)
Subject: Delete definitions of FIX:MIN and FIX:MAX, which are now defined by
X-Git-Tag: 20090517-FFI~4544
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=66c8bc911f15885f688683b494659965b2f5569a;p=mit-scheme.git

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 bcb842372..0a479f0bd 100644
--- 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))
 
 ;;;; Standard Methods
 
diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index 34d14c6c6..df63837cf 100644
--- 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**))))))))))))
 
-(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)