Revision: 6104 Author: iratqq Date: Mon Nov 23 20:23:16 2009 Log: * scm/lolevel.scm (u8list-unpack): - Fix args.
http://code.google.com/p/uim/source/detail?r=6104 Modified: /trunk/scm/lolevel.scm ======================================= --- /trunk/scm/lolevel.scm Sun Nov 15 16:24:29 2009 +++ /trunk/scm/lolevel.scm Mon Nov 23 20:23:16 2009 @@ -80,7 +80,7 @@ (drop arg (+ 2 (length ret))) ;; XXX (cons (list->string (map integer->char ret)) rest)))) ((eq? 'u8list (car fmt)) - (loop (cdr fmt) '() (cons ret rest))) + (loop (cdr fmt) '() (cons arg rest))) (else (uim-notify-fatal (N_ "unknown byte operator"))))))
