From 1b05b324367c3657d30b5334d868bd234ff949a5 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 5 Jun 2005 17:24:52 +0000
Subject: [PATCH] (substring-fill!): New, for compatability.

---
 ice-9/boot-9.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index c8889f46e..5314d7d8a 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -79,6 +79,11 @@
 	     (char_pred (string-ref s (1- end))))
 	(string-every-c-code char_pred s start end))))
 
+;; A variant of string-fill! that we keep for compatability
+;;
+(define (substring-fill! str start end fill)
+  (string-fill! str fill start end))
+
 
 
 ;;; {EVAL-CASE}