null+****@clear*****
null+****@clear*****
Wed Jun 27 10:21:07 JST 2012
yuta yamada 2012-06-27 10:21:07 +0900 (Wed, 27 Jun 2012) New Revision: e9096adf886aa192db057a0706c50f40ba812bc2 https://github.com/logaling/logalimacs/commit/e9096adf886aa192db057a0706c50f40ba812bc2 Log: value -> statement Modified files: logalimacs.el Modified: logalimacs.el (+4 -4) =================================================================== --- logalimacs.el 2012-06-27 10:15:48 +0900 (c484193) +++ logalimacs.el 2012-06-27 10:21:07 +0900 (c16fe0b) @@ -302,13 +302,13 @@ (defun loga-trim-and-compute-length (translation-group) (loop with source and target and note with source-length and target-length - for (key . value) in translation-group do + for (key . statement) in translation-group do (case key - ('source (setq source value + ('source (setq source statement source-length (loga-compute-length source))) - ('target (setq target value + ('target (setq target statement target-length (loga-compute-length target))) - ('note (setq note value))) + ('note (setq note statement))) finally return `(,source ,target ,note ,source-length ,target-length))) (defun loga-format-to-string (converted-list) -------------- next part -------------- An HTML attachment was scrubbed...다운로드
