From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Feb 1992 20:00:15 +0000 (+0000)
Subject: Work around stupid bug in SF.
X-Git-Tag: 20090517-FFI~9753
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8ff60fdb471c433ecd4c407311f0655863073ee3;p=mit-scheme.git

Work around stupid bug in SF.
---

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