use built-in symbol<?

2013-12-05 11:42:46 -05:00 · 2013-12-05 11:42:46 -05:00 · 7017e3fb9d
commit 7017e3fb9d
parent 5ea627165e
1 changed files with 0 additions and 4 deletions
--- 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))