diff options
-rw-r--r-- | scm/dictrans.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/scm/dictrans.scm b/scm/dictrans.scm index 5250368..8c872c4 100644 --- a/scm/dictrans.scm +++ b/scm/dictrans.scm @@ -283,7 +283,12 @@ (define-syntax current-article-set (syntax-rules () ((current-article-set key val) - (p-article-set key p-article val)))) + (if p-article + (p-article-set key p-article val) + (for-each + (lambda (x) + (p-article-set key x val)) + (current-node-get #:p-list)))))) ;;; Node list (define node-list '()) |