[uim] r7222 committed - * scm/tutcode.scm...

[codesite-noreply]

Revision: 7222
Author:   deton.kih
Date:     Tue Jul 19 03:43:15 2011
Log:      * scm/tutcode.scm
  - (tutcode-auto-help-bushu-decompose): Unify coding style.
http://code.google.com/p/uim/source/detail?r=7222

Modified:
 /trunk/scm/tutcode.scm

=======================================
--- /trunk/scm/tutcode.scm      Tue Jul 12 03:59:23 2011
+++ /trunk/scm/tutcode.scm      Tue Jul 19 03:43:15 2011
@@ -3962,9 +3962,8 @@
                     c b1 b2 seq1 rule elem)))
               ;; Éô¼ó2¤Ç¤Ï¹çÀ®ÉÔǽ¢ªÉô¼ó2¤ò¤µ¤é¤Ëʬ²ò
               (let ((b2dec (tutcode-auto-help-bushu-decompose b2 rule  
stime)))
-                (if b2dec
-                  (list seq1 b2dec)
-                  #f))))
+                (and b2dec
+                  (list seq1 b2dec)))))
           ;; Éô¼ó2¤¬Ä¾ÀÜÆþÎϲÄǽ
           ;; ¢ª(Éô¼ó2)¤È(Éô¼ó1¤òÉôÉʤȤ·¤Æ»ý¤Ä´Á»ú)¤Ë¤è¤ë¹çÀ®¤¬²Äǽ¤«?
           (and seq2 b1
@@ -3976,17 +3975,15 @@
                     c b1 b2 seq2 rule elem)))
               ;; Éô¼ó1¤Ç¤Ï¹çÀ®ÉÔǽ¢ªÉô¼ó1¤ò¤µ¤é¤Ëʬ²ò
               (let ((b1dec (tutcode-auto-help-bushu-decompose b1 rule  
stime)))
-                (if b1dec
-                  (list b1dec seq2)
-                  #f))))
+                (and b1dec
+                  (list b1dec seq2)))))
           ;; Éô¼ó1¤âÉô¼ó2¤âľÀÜÆþÎÏÉԲĢª¤µ¤é¤Ëʬ²ò
           (and b1 b2
             (let
               ((b1dec (tutcode-auto-help-bushu-decompose b1 rule stime))
                (b2dec (tutcode-auto-help-bushu-decompose b2 rule stime)))
-              (if (and b1dec b2dec)
-                (list b1dec b2dec)
-                #f)))
+              (and b1dec b2dec
+                (list b1dec b2dec))))
           ;; XXX: ÉôÉʤɤ¦¤·¤Î¹çÀ®¤Ï̤Âбþ
           )))))