Author: ek.kato
Date: Wed Sep 17 03:14:46 2008
New Revision: 5571
Modified:
trunk/scm/rk.scm
Log:
* scm/rk.scm: Oops, fix r5570.
Modified: trunk/scm/rk.scm
==============================================================================
--- trunk/scm/rk.scm (original)
+++ trunk/scm/rk.scm Wed Sep 17 03:14:46 2008
@@ -147,14 +147,14 @@
(define rk-backspace
(lambda (context)
(if
- (pair? (rk-context-seq context))
+ (not (null? (rk-context-seq context)))
(begin
(rk-context-set-seq! context
(cdr (rk-context-seq context)))
;; If the sequence contains only non-representable keysyms after
;; the deletion, flush them.
(if (and
- (pair? (rk-context-seq context))
+ (not (null? (rk-context-seq context)))
(null? (remove
(lambda (x)
(and
@@ -169,7 +169,7 @@
(define rk-delete
(lambda (context)
(if
- (pair? (rk-context-seq context))
+ (not (null? (rk-context-seq context)))
(begin
(rk-context-set-seq! context
(cdr (rk-context-seq context)))
