From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Oct 1993 00:18:15 +0000 (+0000)
Subject: Use SYMBOL<? defined by runtime system.
X-Git-Tag: 20090517-FFI~7776
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6c9a4baac5ac63b87f5449dfbc9276ec00d81b31;p=mit-scheme.git

Use SYMBOL<? defined by runtime system.
---

diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 8a7771576..7641a086f 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: txtprp.scm,v 1.13 1993/10/06 00:59:04 cph Exp $
+;;;	$Id: txtprp.scm,v 1.14 1993/10/12 00:18:15 cph Exp $
 ;;;
 ;;;	Copyright (c) 1993 Massachusetts Institute of Technology
 ;;;
@@ -447,25 +447,9 @@
 (define-integrable (properties=? x y)
   (rb-tree/equal? x y datum=?))
 
-(define-integrable key=?
-  eq?)
-
-(define (key<? x y)
-  (let ((sx (system-pair-car x))
-	(sy (system-pair-car y)))
-    (let ((lx (string-length sx))
-	  (ly (string-length sy)))
-      (let ((l (if (fix:< lx ly) lx ly)))
-	(let loop ((i 0))
-	  (cond ((fix:= i l)
-		 (fix:< lx ly))
-		((fix:= (vector-8b-ref sx i) (vector-8b-ref sy i))
-		 (loop (fix:+ i 1)))
-		(else
-		 (fix:< (vector-8b-ref sx i) (vector-8b-ref sy i)))))))))
-
-(define-integrable datum=?
-  eqv?)
+(define-integrable key=? eq?)
+(define-integrable key<? symbol<?)
+(define-integrable datum=? eqv?)
 
 ;;;; Intervals