From 2dea13fca6b947eeffc018e1435424abade3cdbe Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 26 May 2004 17:03:14 +0000 Subject: [PATCH] Fix bug in handling of wide strings. --- v7/src/runtime/output.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)) -- 2.25.1