delete tools.rkt

decode/typography.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
-(require racket/match xml)
-(require "../tools.rkt" "block.rkt" "../world.rkt" sugar txexpr)
+(require racket/list racket/match xml)
+(require "block.rkt" "../world.rkt" sugar txexpr)
 
 
 (define (make-replacer query+replacement)

pagetree.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
-(require racket/path)
-(require "tools.rkt" "world.rkt" "decode.rkt" sugar txexpr "cache.rkt")
+(require racket/path racket/list)
+(require "file.rkt" "world.rkt" "decode.rkt" sugar txexpr "cache.rkt")
 
 
 (define+provide current-pagetree (make-parameter #f))

render.rkt

@@ -229,7 +229,6 @@
            sugar
            txexpr
            pollen/template
-           pollen/tools
            pollen/world
            pollen/project-requires)
   (define-namespace-anchor my-module-cache-ns-anchor)
@@ -262,7 +261,6 @@
                 sugar
                 txexpr
                 pollen/template
-                pollen/tools
                 pollen/world
                 pollen/project-requires))   
     (string->bytes/utf-8 (eval expr-to-eval (current-namespace)))))

template.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require (for-syntax racket/base))
 (require racket/string xml xml/path sugar/define sugar/container sugar/coerce/contract)
-(require "tools.rkt" txexpr "world.rkt" "cache.rkt" "pagetree.rkt")
+(require "file.rkt" txexpr "world.rkt" "cache.rkt" "pagetree.rkt")
 
 
 (require sugar/coerce/value)

tools.rkt

@@ -1,10 +0,0 @@
-#lang racket/base
-(require racket/list "debug.rkt" "file.rkt")
-(provide (all-defined-out)
-         (all-from-out  racket/list "debug.rkt" "file.rkt"))
-
-
-(require xml racket/string)
-
-(define (html->xexpr . xs)
-  (string->xexpr (string-join xs "")))