add html->xexpr

10 years ago · c4d55e7938
parent 5716696a31
commit c4d55e7938
1 changed files with 6 additions and 1 deletions
--- a/tools.rkt
+++ b/tools.rkt
@ -1,5 +1,10 @@
 #lang racket/base
 (require racket/list "debug.rkt" "predicates.rkt")
-(provide (all-from-out  racket/list "debug.rkt" "predicates.rkt"))
+(provide (all-defined-out)
+         (all-from-out  racket/list "debug.rkt" "predicates.rkt"))


+(require xml racket/string)
+
+(define (html->xexpr . xs)
+  (string->xexpr (string-join xs "")))