From 8ff60fdb471c433ecd4c407311f0655863073ee3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 13 Feb 1992 20:00:15 +0000 Subject: [PATCH] Work around stupid bug in SF. --- 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 fc528f4c9..46d4305bb 100644 --- a/v7/src/runtime/string.scm +++ b/v7/src/runtime/string.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/string.scm,v 14.3 1992/02/12 21:48:41 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/string.scm,v 14.4 1992/02/13 20:00:15 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -431,8 +431,8 @@ MIT in each case. |# (substring-move-right! string 0 n result 0) (begin (substring-move-right! 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) @@ -444,7 +444,7 @@ MIT in each case. |# (if (negative? i) (substring-move-right! string 0 n 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-right! string 0 length result i))) result)))) \ No newline at end of file -- 2.25.1