From 426fdde0c404ab5fb7e4e74110c4411317f1dcd8 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 11 Jul 2016 13:19:57 -0700 Subject: [PATCH] update `pagetree->list` --- pollen/pagetree.rkt | 6 +++--- pollen/private/ts.rktd | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) 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