summaryrefslogtreecommitdiff
path: root/tissue/document.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tissue/document.scm')
-rw-r--r--tissue/document.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/tissue/document.scm b/tissue/document.scm
index e40c80e..ed69254 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -153,6 +153,7 @@ and further text, increase-termpos! must be called before indexing."
#:data (call-with-output-string
(cut write (object->scm document) <>))
#:terms `((,(document-id-term document) . 0))))))
+ (index-text! term-generator (document-type document) #:prefix "XT")
(index-text! term-generator (document-title document) #:prefix "S")
(index-text! term-generator (document-text document))
term-generator))