From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 May 2004 17:03:14 +0000 (+0000)
Subject: Fix bug in handling of wide strings.
X-Git-Tag: 20090517-FFI~1649
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2dea13fca6b947eeffc018e1435424abade3cdbe;p=mit-scheme.git

Fix bug in handling of wide strings.
---

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index 6744669c1..27466298e 100644
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: output.scm,v 14.33 2004/02/16 05:37:21 cph Exp $
+$Id: output.scm,v 14.34 2004/05/26 17:03:14 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1999,2001,2002,2003 Massachusetts Institute of Technology
@@ -36,19 +36,20 @@ USA.
   ((port/operation/write-char port) port char))
 
 (define (output-port/write-string port string)
-  (output-port/write-substring port string 0 (xstring-length string)))
+  (output-port/write-substring port string 0 (string-length string)))
 
 (define (output-port/write-substring port string start end)
   ((port/operation/write-substring port) port string start end))
 
 (define (output-port/write-wide-string port string)
-  (output-port/write-wide-substring port string 0 (xstring-length string)))
+  (output-port/write-wide-substring port string 0 (wide-string-length string)))
 
 (define (output-port/write-wide-substring port string start end)
   ((port/operation/write-wide-substring port) port string start end))
 
 (define (output-port/write-external-string port string)
-  (output-port/write-external-substring port string 0 (xstring-length string)))
+  (output-port/write-external-substring port string 0
+					(external-string-length string)))
 
 (define (output-port/write-external-substring port string start end)
   ((port/operation/write-external-substring port) port string start end))