diff --git a/info.rkt b/info.rkt
index a4fbca0..4ec478d 100644
--- a/info.rkt
+++ b/info.rkt
@@ -1,4 +1,4 @@
 #lang info
 (define collection "txexpr")
-(define deps '("sugar"))
+
 (define scribblings '(("scribblings/txexpr.scrbl" ())))
diff --git a/main.rkt b/main.rkt
index f2c70b3..04347bf 100644
--- a/main.rkt
+++ b/main.rkt
@@ -1,9 +1,20 @@
 #lang racket/base
+(require (for-syntax racket/base))
 (require racket/match xml)
-(require sugar/define)
 
-(module+ safe
-  (require racket/contract))
+(module+ safe (require racket/contract))
+
+(define-syntax (define+provide+safe stx)
+  (syntax-case stx ()
+    [(_ (proc arg ... . rest-arg) contract body ...)
+     #'(define+provide+safe proc contract
+         (λ(arg ... . rest-arg) body ...))]
+    [(_ name contract body ...)
+     #'(begin
+         (define name body ...)
+         (provide name)
+         (module+ safe 
+           (provide (contract-out [name contract]))))]))
 
 (define+provide+safe (txexpr-tag? x)
   (any/c . -> . boolean?)
@@ -211,10 +222,3 @@
   (define tx-extracted (do-extraction tx)) ;; do this first to fill matches
   (values tx-extracted (reverse matches))) 
 
-
-#|
-(module+ main
-  (define tx '(root (meta ((here "pollen"))) (meta ((here-path "/Users/mb/Desktop/pollen.pm"))) "\n" "\n" (make-table ("" "writer" "reader") ("Attention span" "Long" "Short") ("Interest in topic" "High" "Low") ("Persuadable by other opinions" "No" "Yes") ("Cares about your happiness" "Yes" "No"))))
-  (splitf-txexpr tx (λ(x) (and (txexpr? x) (equal? 'meta (car x))))))
-
-|#
\ No newline at end of file