From c4d55e793862fbdb4e7efecd3074aec5aa7ca0ee Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 24 Feb 2014 00:05:36 -0800 Subject: [PATCH] add html->xexpr --- tools.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/tools.rkt b/tools.rkt index 619b3c0..a36b143 100644 --- 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 "")))