diff --git a/pollen/pagetree.rkt b/pollen/pagetree.rkt index fc9b05c..1694f33 100644 --- a/pollen/pagetree.rkt +++ b/pollen/pagetree.rkt @@ -176,10 +176,10 @@ ;; flatten tree to sequence -(define+provide/contract (pagetree->list pt) - (pagetree? . -> . pagenodes?) +(define+provide/contract (pagetree->list pt-or-path) + ((or/c pagetree? pathish?) . -> . pagenodes?) ; use cdr to get rid of root tag at front - (flatten (cdr pt))) + (flatten (cdr (get-pagetree pt-or-path)))) (module-test-external (define test-pagetree `(pagetree-main foo bar (one (two three)))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 60d5e17..67bd7af 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1468266778 +1468268397