Fix loading cycle

pollen-local/polytag.rkt

@@ -3,7 +3,7 @@
 (require pollen/tag pollen/setup)
 (require (for-syntax racket/syntax
                      syntax/parse
-                     pollen/setup))
+                     "target.rkt"))
 
 (provide (all-defined-out))
 (provide poly-branch-tag)
@@ -51,7 +51,7 @@
     ; tag function with no special arguments or defaults
     [(_ TAG:id)
      (with-syntax ([((POLY-TARGET POLY-FUNC) ...) 
-                    (for/list ([target (in-list (setup:poly-targets))])
+                    (for/list ([target (in-list poly-targets)])
                               (list target (format-id stx "~a-~a" target #'TAG)))]
                    [DEFAULT-TARGET (format-id stx "html-~a" #'TAG)])
        #'(define-tag-function (TAG attributes elems)
@@ -62,7 +62,7 @@
     ; tag function with no positional arguments but with specified defaults
     [(_ TAG:id ATTRS:keyval ...+)
      (with-syntax ([((POLY-TARGET POLY-FUNC) ...) 
-                    (for/list ([target (in-list (setup:poly-targets))])
+                    (for/list ([target (in-list poly-targets)])
                               (list target (format-id stx "~a-~a" target #'TAG)))]
                    [DEFAULT-TARGET (format-id stx "html-~a" #'TAG)])
       #'(define-tag-function (TAG attributes elems)
@@ -74,7 +74,7 @@
     ; tag function with one positional argument and no defaults
     [(_ TAG:id ARG:id)
      (with-syntax ([((POLY-TARGET POLY-FUNC) ...) 
-                    (for/list ([target (in-list (setup:poly-targets))])
+                    (for/list ([target (in-list poly-targets)])
                               (list target (format-id stx "~a-~a" target #'TAG)))]
                    [DEFAULT-TARGET (format-id stx "html-~a" #'TAG)])
        #'(define-tag-function (TAG attributes elems)
@@ -86,7 +86,7 @@
     ; tag function with one positional argument and specified defaults
     [(_ TAG:id ARG:id ATTRS:keyval ...+)
      (with-syntax ([((POLY-TARGET POLY-FUNC) ...)
-                    (for/list ([target (in-list (setup:poly-targets))])
+                    (for/list ([target (in-list poly-targets)])
                               (list target (format-id stx "~a-~a" target #'TAG)))]
                    [DEFAULT-TARGET (format-id stx "html-~a" #'TAG)])
        #'(define-tag-function (TAG attributes elems)

pollen-local/target.rkt

@@ -0,0 +1,8 @@
+#lang racket/base
+
+;; Breaking the loading cycle
+;; Can no longer do (require (for-syntax pollen/setup)) in anything used by pollen.rkt
+;; See https://github.com/mbutterick/pollen/issues/229
+
+(define poly-targets '(html pdf))
+(provide poly-targets)

pollen.rkt

@@ -22,10 +22,10 @@
 (provide for/s)
 
 (module setup racket/base
-  (provide (all-defined-out))
-  ;; Possible target output formats
-  (define poly-targets '(html pdf))
-  
+  (require "pollen-local/target.rkt")
+  (provide (all-defined-out)
+           poly-targets)
+
   ;; Specify additional files for the Pollen server to watch
   (require syntax/modresolve racket/runtime-path)
   (define-runtime-path util-date.rkt "util-date.rkt")