Mon Jun 22 22:45:45+0200 2020
99c3db2
Fix missing source information in JMdict.
modules/nani/jmdict/xml.scm
| 54 | 54 | ((('xml . 'lang) l) (update-source source #:lang l)) | |
| 55 | 55 | (((? symbol? s) v) (throw 'unknown-content s v)) | |
| 56 | 56 | ((? list? l) (loop source l)) | |
| 57 | - | ((? string? _) source)) | |
| 57 | + | ((? string? c) (update-source source #:content | |
| 58 | + | (cons c (source-content source))))) | |
| 58 | 59 | (cdr lst))))) | |
| 59 | 60 | ||
| 60 | 61 | (define (sxml->sense lst) |