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

add paths to datum-order

Browse Source 
closes PR 14225
This commit is contained in:
Ryan Culpepper 2013-12-05 11:34:45 -05:00
parent 98518c33e0
commit 5ea627165e
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/data-pkgs/data-doc/data/scribblings/order.scrbl
View File

@ -214,7 +214,7 @@ all inexact numbers. Thus @racket[1] is considered distinct from
@racket[1.0], for example. @racket[1.0], for example.
The following data types are currently supported: numbers, strings, The following data types are currently supported: numbers, strings,
bytes, keywords, symbols, booleans, characters, null, pairs, vectors, bytes, keywords, symbols, booleans, characters, paths, null, pairs, vectors,
boxes, prefab structs, and fully-transparent structs. boxes, prefab structs, and fully-transparent structs.
The following example comparisons are specified to return the results The following example comparisons are specified to return the results

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

@ -154,6 +154,7 @@ Other:
< symbol < symbol
< bool < bool
< char < char
< path
< null < null
< pair < pair
< vector < vector
@ -245,6 +246,12 @@ Other:
'<)] '<)]
[(char? y) [(char? y)
'>] '>]
[(path-for-some-system? x)
(if (path-for-some-system? y)
(cmp* bytes<? bytes=? (path->bytes x) (path->bytes y))
'<)]
[(path-for-some-system? y)
'>]
[(null? x) [(null? x)
(if (null? y) (if (null? y)
'= '=
@ -289,7 +296,7 @@ Other:
(raise-type-error (raise-type-error
(if natural? 'natural-cmp 'datum-cmp) (if natural? 'natural-cmp 'datum-cmp)
(string-join '("number" "string" "bytes" "keyword" "symbol" "boolean" "character" (string-join '("number" "string" "bytes" "keyword" "symbol" "boolean" "character"
"null" "pair" "vector" "box" "path" "null" "pair" "vector" "box"
"prefab struct" "or fully-transparent struct") "prefab struct" "or fully-transparent struct")
", ") ", ")
0 x y)])) 0 x y)]))