From 2770ea9dac389667e9369dfe5856af2c075c81fa Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Jan 2001 03:18:51 +0000
Subject: [PATCH] KEY<? must be able to handle Edwin variables as well as
 symbols.

---
 v7/src/edwin/txtprp.scm | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index 8009ff9ed..2cd7a2fdb 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: txtprp.scm,v 1.22 2001/01/25 04:44:41 cph Exp $
+;;; $Id: txtprp.scm,v 1.23 2001/01/26 03:18:51 cph Exp $
 ;;;
 ;;; Copyright (c) 1993-2001 Massachusetts Institute of Technology
 ;;;
@@ -217,7 +217,7 @@
 
 (define (validate-key-argument key procedure)
   (if (not (or (interned-symbol? key) (variable? key)))
-      (error:wrong-type-argument key "symbol" procedure)))
+      (error:wrong-type-argument key "key" procedure)))
 
 (define no-datum
   (list 'NO-DATUM))
@@ -453,8 +453,22 @@
   (rb-tree/equal? x y datum=?))
 
 (define-integrable key=? eq?)
-(define-integrable key<? symbol<?)
 (define-integrable datum=? eqv?)
+
+(define (key<? k1 k2)
+  (let ((lose
+	 (lambda (k)
+	   (error:wrong-type-argument k "key" 'KEY<?))))
+    (cond ((symbol? k1)
+	   (cond ((symbol? k2) (symbol<? k1 k2))
+		 ((variable? k2) #t)
+		 (else (lose k2))))
+	  ((variable? k1)
+	   (cond ((symbol? k2) #f)
+		 ((variable? k2)
+		  (symbol<? (variable-name k1) (variable-name k2)))
+		 (else (lose k2))))
+	  (else (lose k1)))))
 
 ;;;; Intervals
 
-- 
2.25.1