Tweak.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 3e949c58929b8420346d8242a52adcf9ff6b4250..ca3bf9c2b731cae5c99953b0a3c9960a5b14cbd6 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -608,10 +608,6 @@ USA.
     (define (get-partial)
       (string-slice buffer start index))
 
-    (define (empty?)
-      (and (fix:= start index)
-          (null? buffers)))
-
     (define (append-char! char)
       (ustring3-set! buffer index char)
       (set! index (fix:+ index 1))
@@ -654,7 +650,7 @@ USA.
        ((append-char!) append-char!)
        ((append-string!) append-string!)
        ((build) build)
-       ((empty?) empty?)
+       ((empty?) (lambda () (fix:= count 0)))
        ((count) (lambda () count))
        ((max-cp) (lambda () max-cp))
        ((reset!) reset!)