diff --git a/main.rkt b/main.rkt
index acddbbe..04347bf 100644
--- a/main.rkt
+++ b/main.rkt
@@ -222,16 +222,3 @@
   (define tx-extracted (do-extraction tx)) ;; do this first to fill matches
   (values tx-extracted (reverse matches))) 
 
-
-(define+provide+safe (txexpr->html x)
-  (txexpr? . -> . string?)
-  (define (->cdata x)
-    (if (cdata? x) x (cdata #f #f x)))
-  
-  (xexpr->string (let loop ([x x])
-                   (cond
-                     [(txexpr? x) (if (member (get-tag x) '(script style))
-                                      (make-txexpr (get-tag x) (get-attrs x) (map ->cdata (get-elements x)))
-                                      (make-txexpr (get-tag x) (get-attrs x) (map loop (get-elements x))))]
-                     [else x]))))
-