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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-19 09:04:16 -0700 (Fri, 19 Aug 2005)
New Revision: 1237

Modified:
   branches/r5rs/scm/key.scm
Log:
* scm/key.scm
  - (make-single-key-predicate): Fix implementation-dependent invalid
    equivalence predicates enbuged in r1236. See 6.1 "Equivalence
    predicates" of the R5RS


Modified: branches/r5rs/scm/key.scm
===================================================================
--- branches/r5rs/scm/key.scm	2005-08-19 15:47:54 UTC (rev 1236)
+++ branches/r5rs/scm/key.scm	2005-08-19 16:04:16 UTC (rev 1237)
@@ -257,8 +257,8 @@
 	  (let* ((translated (apply-translators translators key key-state))
 		 (key       (nth 1 translated))
 		 (key-state (nth 2 translated)))
-	    (and (eq? key target-key)
-		 (eq? key-state target-state))))))
+	    (and (eqv? key target-key)
+		 (eqv? key-state target-state))))))
      ((symbol? source)
       (let ((predicate-sym source))
 	(lambda (key key-state)