improve ->string

coerce.rkt

@@ -24,24 +24,25 @@
 ;; general way of coercing to string
 (define+provide/contract (->string x)
   (any/c . -> . string?)
-  (try 
+  (if (string? x)
-   (cond 
+      x ; fast exit for strings
-     [(string? x) x]
+      (try   
-     [(equal? '() x) ""]
+       (cond
-     [(symbol? x) (symbol->string x)]
+         [(equal? '() x) ""]
-     [(number? x) (number->string x)]
+         [(symbol? x) (symbol->string x)]
-     [(url? x) (->string (->path x))] ; todo: a url is more than just a path-string ... it has character encoding issues
+         [(number? x) (number->string x)]
-     [(path? x) (path->string x)]
+         [(url? x) (->string (->path x))] ; todo: a url is more than just a path-string ... it has character encoding issues
-     [(char? x) (format "~a" x)]
+         [(path? x) (path->string x)]
-     [else (error)]) ; put this last so other xexprish things don't get caught
+         [(char? x) (format "~a" x)]
-   (except [exn:fail? (make-coercion-error-handler 'string x)])))
+         [else (error)]) ; put this last so other xexprish things don't get caught
+       (except [exn:fail? (make-coercion-error-handler 'string x)]))))
 
 
 ;; general way of coercing to html
 (define+provide/contract (->html x)
   (any/c . -> . string?)
   (try (xexpr->string x)
-   (except [exn:fail? (make-coercion-error-handler 'html x)])))
+       (except [exn:fail? (make-coercion-error-handler 'html x)])))
 
 
 ;; general way of coercing to symbol