From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 Apr 2017 00:14:28 +0000 (-0700)
Subject: Tweak.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~18
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12cd0595d4d1d191a2cb057d44888201d5565ca6;p=mit-scheme.git

Tweak.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 3e949c589..ca3bf9c2b 100644
--- 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!)