update `pagetree->list`

pull/127/head
Matthew Butterick 8 years ago
parent 67088229c9
commit 426fdde0c4

@ -176,10 +176,10 @@
;; flatten tree to sequence ;; flatten tree to sequence
(define+provide/contract (pagetree->list pt) (define+provide/contract (pagetree->list pt-or-path)
(pagetree? . -> . pagenodes?) ((or/c pagetree? pathish?) . -> . pagenodes?)
; use cdr to get rid of root tag at front ; use cdr to get rid of root tag at front
(flatten (cdr pt))) (flatten (cdr (get-pagetree pt-or-path))))
(module-test-external (module-test-external
(define test-pagetree `(pagetree-main foo bar (one (two three)))) (define test-pagetree `(pagetree-main foo bar (one (two three))))

@ -1 +1 @@
1468266778 1468268397

Loading…
Cancel
Save