add `metaroot` hook (closes #47)

10 years ago · 3538ab4020
parent 725447ec21
commit 3538ab4020
1 changed files with 2 additions and 1 deletions
--- a/main-base.rkt
+++ b/main-base.rkt
@ -65,8 +65,9 @@
                        (values result meta-acc))
                      
                      (define-values (doc-without-metas meta-elements) (splitter x))
+                      (define meta-xexpr (apply metaroot meta-elements))
                      (define meta-element->assoc (λ(x) (let ([key (meta-key x)][value (meta-value x)]) (cons key value))))
-                      (define metas (make-hash (map meta-element->assoc meta-elements)))
+                      (define metas (make-hash (map meta-element->assoc (cdr meta-xexpr))))
                      (values doc-without-metas metas)) 
                    
                    (require racket/list)