diff --git a/quad/main.rkt b/quad/main.rkt
index 054a08c7..050e75ad 100644
--- a/quad/main.rkt
+++ b/quad/main.rkt
@@ -197,9 +197,6 @@
   (update-text-cache-file)
   doc)
 
-(define (para ht . xs)
-  (apply box ht `(,(block-break) ,@xs ,(block-break)))) 
-
 
 (module+ main
   (require "render.rkt" racket/class profile)