Author: iratqq
Date: Tue Feb 12 00:58:08 2008
New Revision: 5164
Modified:
trunk/scm/canna.scm
Log:
* scm/canna.scm (canna-proc-transposing-state):
Fix typo.
Modified: trunk/scm/canna.scm
==============================================================================
--- trunk/scm/canna.scm (original)
+++ trunk/scm/canna.scm Tue Feb 12 00:58:08 2008
@@ -647,7 +647,7 @@
(if (and lst
(not (null? (cdr lst))))
(set! state (car (cdr lst)))
- (if (not (null? rorate-list))
+ (if (not (null? rotate-list))
(set! state (canna-rotate-transposing-alnum-type
(canna-context-transposing-type cc)
(car rotate-list))))))
