version 1.13, 2004/04/16 07:50:22 |
version 1.14, 2005/01/23 09:55:29 |
|
|
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.12 2004/03/25 01:05:34 ohara Exp $ |
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.13 2004/04/16 07:50:22 ohara Exp $ |
|
|
(define (alist-search alist) |
(define (alist-search alist) |
(let* ((lang (or (getenv "LANG") "C")) |
(let* ((lang (or (getenv "LANG") "C")) |
|
|
(define (openxm-serialize lan t) |
(define (openxm-serialize lan t) |
(import-from (texmacs plugin plugin-cmd)) |
(import-from (texmacs plugin plugin-cmd)) |
(with u (pre-serialize lan t) |
(with u (pre-serialize lan t) |
(with s (texmacs->verbatim (object->tree u)) |
(with s (texmacs->verbatim (stree->tree u)) |
(string-append (string-replace s "\n" "\v") "\n") |
(string-append (string-replace s "\n" "\v") "\n") |
))) |
))) |
|
|