[uim-commit] r590 - trunk/scm

yamaken at freedesktop.org yamaken at freedesktop.org
Sun Feb 6 23:34:34 PST 2005


Author: yamaken
Date: 2005-02-06 23:34:31 -0800 (Sun, 06 Feb 2005)
New Revision: 590

Modified:
   trunk/scm/custom.scm
Log:
* scm/custom.scm
  - (custom-choice-label, custom-choice-desc):
    * Fix Siod-dependent invalid predicate. assq does not return ()
      but #f. Don't use null? to test #f
    * Return val-sym instead of empty string


Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-02-07 06:10:43 UTC (rev 589)
+++ trunk/scm/custom.scm	2005-02-07 07:34:31 UTC (rev 590)
@@ -350,17 +350,17 @@
   (lambda (custom-sym val-sym)
     (let* ((sym-rec-alist (custom-type-attrs custom-sym))
 	   (srec (assq val-sym sym-rec-alist)))
-      (if (null? srec)
-	  ""
-	  (custom-choice-rec-label srec)))))
+      (if srec
+	  (custom-choice-rec-label srec)
+	  (symbol->string val-sym)))))
 
 (define custom-choice-desc
   (lambda (custom-sym val-sym)
     (let* ((sym-rec-alist (custom-type-attrs custom-sym))
 	   (srec (assq val-sym sym-rec-alist)))
-      (if (null? srec)
-	  "" 
-	  (custom-choice-rec-desc srec)))))
+      (if srec
+	  (custom-choice-rec-desc srec)
+	  (symbol->string val-sym)))))
 
 (define custom-choice-range-reflect-olist-val
   (lambda (dst-sym src-sym indication-alist)



More information about the Uim-commit mailing list