From 7017e3fb9d7305de7b871673e7fd3db8a9df42f6 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Thu, 5 Dec 2013 11:42:46 -0500
Subject: [PATCH] use built-in symbol<?

---
 pkgs/data-pkgs/data-lib/data/order.rkt | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/pkgs/data-pkgs/data-lib/data/order.rkt b/pkgs/data-pkgs/data-lib/data/order.rkt
index 1976af26c7..77bfd1c432 100644
--- a/pkgs/data-pkgs/data-lib/data/order.rkt
+++ b/pkgs/data-pkgs/data-lib/data/order.rkt
@@ -311,10 +311,6 @@ Other:
     ((=) c2)
     ((>) '>)))
 
-(define (symbol<? x y)
-  ;; FIXME: need prim symbol<? to avoid allocation!
-  (string<? (symbol->string x) (symbol->string y)))
-
 (define (vector-cmp x y i natural?)
   (cond [(< i (vector-length x))
          (if (< i (vector-length y))