[uim-commit] r1313 - branches/r5rs/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-08-25 10:15:32 -0700 (Thu, 25 Aug 2005)
New Revision: 1313

Modified:
   branches/r5rs/scm/util.scm
Log:
* scm/util.scm (nconc) : Fix behavior.  This fixes
  anthy-converting-state-preedit.


Modified: branches/r5rs/scm/util.scm
===================================================================
--- branches/r5rs/scm/util.scm	2005-08-25 13:36:40 UTC (rev 1312)
+++ branches/r5rs/scm/util.scm	2005-08-25 17:15:32 UTC (rev 1313)
@@ -210,7 +210,9 @@
   (lambda (lst obj)
     (if (null? lst)
 	obj
-	(set-cdr! (last-pair lst) obj))))
+	(begin
+	  (set-cdr! (last-pair lst) obj)
+	  lst))))
 
 ;;
 ;; R5RS-like character procedures