From 0f6d19673f09076065852ddd4999b1e33b319737 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 14 Feb 2014 18:15:12 -0800 Subject: [PATCH] update --- predicates.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/predicates.rkt b/predicates.rkt index 6819b7a..8756b7a 100644 --- a/predicates.rkt +++ b/predicates.rkt @@ -1,6 +1,6 @@ #lang racket/base (require racket/contract racket/match racket/list xml racket/set) -(require (prefix-in html: css-tools/html)) +(require css-tools/html) (require "world.rkt" sugar "file-tools.rkt" "debug.rkt") (module+ test (require rackunit)) @@ -99,18 +99,18 @@ ;; initial set of block tags: from html -(define block-tags html:block-tags) +(define project-block-tags block-tags) (define/contract (append-block-tag tag) (xexpr-tag? . -> . void?) - (set! block-tags (cons tag block-tags))) + (set! project-block-tags (cons tag project-block-tags))) ;; is the tagged-xexpr a block element (as opposed to inline) ;; tags are inline unless they're registered as block tags. (define/contract (block-xexpr? x) (any/c . -> . boolean?) ;; (car x) = shorthand for tag of xexpr - ((tagged-xexpr? x) . and . ((car x) . in? . block-tags))) + ((tagged-xexpr? x) . and . ((car x) . in? . project-block-tags))) (module+ test (check-true (block-xexpr? '(p "foo")))