[uim-commit] r929 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-07-02 23:08:50 -0700 (Sat, 02 Jul 2005)
New Revision: 929

Modified:
   trunk/scm/util.scm
Log:
* scm/util.scm
  - (define-record): Revert excessive error check added in r922. The
    #f check is already done by nth procedure. Although current nthcdr
    for setter proc doesn't do the check, list-tail will do it


Modified: trunk/scm/util.scm
===================================================================
--- trunk/scm/util.scm	2005-07-03 05:55:50 UTC (rev 928)
+++ trunk/scm/util.scm	2005-07-03 06:08:50 UTC (rev 929)
@@ -504,18 +504,12 @@
 			 (default  (nth 1 spec))
 			 (getter-sym (symbolconc rec-sym '- elem-sym))
 			 (getter (lambda (rec)
-				   (if rec
-				       (nth index rec)
-				       (begin ;; This error message is not need?
-					 (print (string-append "Error in " getter-sym))
-					 #f))))
+				   (nth index rec)))
 			 (setter-sym (symbolconc rec-sym '-set- elem-sym '!))
 			 (setter (lambda (rec val)
-				   (if rec
-				       (set-car! (nthcdr index rec) val)
-				       ;; This error message is not need?
-				       (print (string-append "Error in " setter-sym))
-				       #f))))
+				   (set-car!
+				    (nthcdr index rec)
+				    val))))
 		    (eval (list 'define getter-sym getter)
 			  toplevel-env)
 		    (eval (list 'define setter-sym setter)