mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

(substring-fill!): New, for compatability.

Browse source
This commit is contained in:
Marius Vollmer 2005-06-05 17:24:52 +00:00
parent 92205699d0
commit 1b05b32436
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/boot-9.scm
View file

@ -79,6 +79,11 @@
(char_pred (string-ref s (1- end)))) (char_pred (string-ref s (1- end))))
(string-every-c-code char_pred s start 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} ;;; {EVAL-CASE}