pagetree? bug

10 years ago · 9d90846b96
parent 1509716a61
commit 9d90846b96
1 changed files with 1 additions and 0 deletions
--- a/pagetree.rkt
+++ b/pagetree.rkt
@ -32,6 +32,7 @@
 (define+provide (validate-pagetree x)
  (let ([pagenodes (pagetree->list x)])
    (and
+     (txexpr? x)
     (andmap (λ(p) (or (pagenode? p) (error (format "validate-pagetree: \"~a\" is not a valid pagenode" p)))) pagenodes)
     (try (members-unique?/error pagenodes)
          (except [exn:fail? (λ(e) (error (format "validate-pagetree: ~a" (exn-message e))))]))