From 31323ac44527f1b96140113fb5b36b5ffb160586 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Tue, 27 Jul 2010 12:33:58 -0700
Subject: [PATCH] Implement SYMBOL>?

---
 src/runtime/runtime.pkg |  1 +
 src/runtime/symbol.scm  | 14 +++++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 063d4ca6e..47a222cba 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -549,6 +549,7 @@ USA.
 	  symbol-hash-mod
 	  symbol-name
 	  symbol<?
+	  symbol>?
 	  symbol?
 	  uninterned-symbol?
 	  utf8-string->symbol
diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 5ed2a3a0c..07759a22f 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -129,9 +129,7 @@ USA.
 (define (symbol-hash-mod symbol modulus)
   (string-hash-mod (symbol-name symbol) modulus))
 
-(define (symbol<? x y)
-  (guarantee-symbol x 'SYMBOL<?)
-  (guarantee-symbol y 'SYMBOL<?)
+(define (%symbol<? x y)
   (let ((sx (system-pair-car x))
 	(sy (system-pair-car y)))
     (let ((lx (string-length sx))
@@ -145,6 +143,16 @@ USA.
 		(else
 		 (fix:< (vector-8b-ref sx i) (vector-8b-ref sy i)))))))))
 
+(define (symbol<? x y)
+  (guarantee-symbol x 'SYMBOL<?)
+  (guarantee-symbol y 'SYMBOL<?)
+  (%symbol<? x y))
+
+(define (symbol>? x y)
+  (guarantee-symbol x 'SYMBOL>?)
+  (guarantee-symbol y 'SYMBOL>?)
+  (%symbol<? y x))
+
 (define (symbol->utf8-string symbol)
   (string-copy (symbol-name symbol)))
 
-- 
2.25.1