From b96792826557ace79009651d726331ac20d0a23f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 13 Apr 2000 22:23:03 +0000 Subject: [PATCH] Use fixnum arithmetic everywhere. Various other small changes. --- v7/src/runtime/string.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm index a2510eae7..85a8deef8 100644 --- a/v7/src/runtime/string.scm +++ b/v7/src/runtime/string.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: string.scm,v 14.31 2000/04/13 22:21:01 cph Exp $ +$Id: string.scm,v 14.32 2000/04/13 22:23:03 cph Exp $ Copyright (c) 1988-2000 Massachusetts Institute of Technology @@ -680,8 +680,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (substring-move-left! string 0 n result 0) (begin (substring-move-left! string 0 length result 0) - (substring-fill! result length n - (if (default-object? char) #\space char)))) + (let ((char (if (default-object? char) #\space char))) + (substring-fill! result length n char)))) result)))) (define (string-pad-left string n #!optional char) @@ -695,8 +695,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (if (fix:< i 0) (substring-move-left! string (fix:- 0 i) length result 0) (begin - (substring-fill! result 0 i - (if (default-object? char) #\space char)) + (let ((char (if (default-object? char) #\space char))) + (substring-fill! result 0 i char)) (substring-move-left! string 0 length result i))) result)))) -- 2.25.1