Revision: 6105 Author: iratqq Date: Sat Nov 28 09:42:58 2009 Log: * scm/lolevel.scm (u8list-unpack): - Use receive.
http://code.google.com/p/uim/source/detail?r=6105 Modified: /trunk/scm/lolevel.scm ======================================= --- /trunk/scm/lolevel.scm Mon Nov 23 20:23:16 2009 +++ /trunk/scm/lolevel.scm Sat Nov 28 09:42:58 2009 @@ -58,9 +58,8 @@ (arg arg) (rest '())) (define (call-with-n-byte n thunk) - (call-with-values (lambda () (split-at arg n)) - (lambda (h t) - (loop (cdr fmt) t (cons (thunk h) rest))))) + (receive (h t) (split-at arg n) + (loop (cdr fmt) t (cons (thunk h) rest)))) (cond ((null? fmt) (reverse rest)) ((eq? 'u8 (car fmt))
