Revision: 6088 Author: iratqq Date: Sat Nov 21 11:22:36 2009 Log: * scm/cannav3-socket.scm (canna-lib-make-s16-list): - Remove unused function.
http://code.google.com/p/uim/source/detail?r=6088 Modified: /trunk/scm/cannav3-socket.scm ======================================= --- /trunk/scm/cannav3-socket.scm Sat Nov 21 06:05:24 2009 +++ /trunk/scm/cannav3-socket.scm Sat Nov 21 11:22:36 2009 @@ -50,13 +50,6 @@ (define (canna-var&user-fmt user) (format "3.3:~a" user)) -(define (canna-lib-make-s16-list l) - (apply - append - (map (lambda (p) - (u8list-pack '(s16) p)) - (append l (list ""))))) - (define (canna-lib-initialize socket user) (let* ((canna-var&user (canna-var&user-fmt user)) (canna-var&user-len (+ 1 (string-length canna-var&user))))
