allow anonymous here-path

10 years ago · 97b4dea0ca
parent 6660b0a947
commit 97b4dea0ca
1 changed files with 1 additions and 1 deletions
--- a/template.rkt
+++ b/template.rkt
@ -8,7 +8,7 @@
 (define/contract+provide (metas->here metas)
  (hash? . -> . pagenode?)
-  (path->pagenode (select-from-metas 'here-path metas)))
+  (path->pagenode (or (select-from-metas 'here-path metas) 'unknown)))
 (define (pagenode->path pagenode)