summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tissue4
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/tissue b/bin/tissue
index 59de104..e29cf3c 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -250,7 +250,9 @@ top-level of the git repository."
(call-with-writable-database %xapian-index
(lambda (db)
(for-each (lambda (indexed-document)
- (let* ((document ((indexed-document-reader indexed-document)))
+ (let* ((document (slot-set ((indexed-document-reader indexed-document))
+ 'web-uri
+ (indexed-document-web-uri indexed-document)))
(term-generator (document-term-generator document)))
(index-text! term-generator (document-type document) #:prefix "XT")
(replace-document! db