diff options
Diffstat (limited to 'scm/dictrans.scm')
| -rw-r--r-- | scm/dictrans.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index 7161e2d..ae9b3f5 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -787,14 +787,14 @@ #t))) (define (insert-node conn node lang) - (letrec ((insert-link (lambda (type value) + (letrec ((insert-link (lambda (type value idx) (run-query conn (format #f "INSERT INTO pending_links (type,originator,word) VALUES('~A',~A,'~A')" type - dict-index + idx value))))) (for-each @@ -852,7 +852,7 @@ ;;; Insert cross-references (for-each (lambda (x) - (insert-link "XREF" x)) + (insert-link "XREF" x word-index)) (append (node-get #:xref node) (p-article-get #:xref p-article))) @@ -860,7 +860,7 @@ ;;; Insert antonyms (for-each (lambda (x) - (insert-link "ANT" x)) + (insert-link "ANT" x word-index)) (p-article-get #:aref p-article)) ;;; Insert topics |