suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use built-in symbol<?

Browse Source
This commit is contained in:
Ryan Culpepper 2013-12-05 11:42:46 -05:00
parent 5ea627165e
commit 7017e3fb9d
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/data-pkgs/data-lib/data/order.rkt
View File

@ -311,10 +311,6 @@ Other:
((=) c2) ((=) 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?) (define (vector-cmp x y i natural?)
(cond [(< i (vector-length x)) (cond [(< i (vector-length x))
(if (< i (vector-length y)) (if (< i (vector-length y))