diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 10:28:39 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-12 10:28:39 +0000 |
commit | bc8fea98df902d372de3f481bbe919235ec018e6 (patch) | |
tree | b8a5a59182c295752d6b495ba7e19636d39b627e /scm/dictrans.scm | |
parent | f41cbc9b200bc8b805f0c6bb8ebe9f4114c5d46a (diff) | |
download | ellinika-bc8fea98df902d372de3f481bbe919235ec018e6.tar.gz ellinika-bc8fea98df902d372de3f481bbe919235ec018e6.tar.bz2 |
Use (gamma sql)
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@214 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'scm/dictrans.scm')
-rw-r--r-- | scm/dictrans.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index bbb6058..e84c116 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -80,13 +80,13 @@ ;;;; <X>string</X>* ;;;; <T ID="string" />* ;;;; </NODE> ;=UPDPATH= (use-modules (xmltools xmltrans) - (sql) + (gamma sql) (ellinika xlat) (ice-9 getopt-long)) (use-syntax (ice-9 syncase)) (define compile-only #f) @@ -215,12 +215,13 @@ ((node-get #:p-list node) => (lambda (plist) (vector-set! node 3 (append plist (list p))))) (else (vector-set! node 3 (list p))))) ((node-set #:topic node t) + ;; FIXME: Scope of <T> is position-dependent relative to <P> (for-each (lambda (p) (p-article-set #:topic p t)) (node-get #:p-list node))))) (define-macro (current-node-set key val) @@ -828,7 +829,7 @@ ;;;; Local variables: ;;;; mode: Scheme ;;;; buffer-file-coding-system: utf-8 ;;;; End: -
\ No newline at end of file + |