STRING-MOVE! now in runtime system.

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 6f1782957efa83f806cf898b0f0ba954d7e2537a..b3287aec2bc761c4f90dea3d0b8e405f1c68face 100644 (file)
--- a/v7/src/imail/imail-util.scm
+++ b/v7/src/imail/imail-util.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-util.scm,v 1.8 2000/04/07 19:08:18 cph Exp $
+;;; $Id: imail-util.scm,v 1.9 2000/04/13 20:14:25 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -205,21 +205,6 @@
                                  (string-move! prefix string index)))))
        string)
       ""))
-
-(define (string-move! from to index)
-  (let ((end (string-length from)))
-    (if (fix:< end 32)
-       ;; When transferring less than 32 bytes, it's faster to do
-       ;; inline than to call the primitive.
-       (let loop ((fi 0) (ti index))
-         (if (fix:= fi end)
-             ti
-             (begin
-               (string-set! to ti (string-ref from fi))
-               (loop (fix:+ fi 1) (fix:+ ti 1)))))
-       (begin
-         (substring-move-left! from 0 end to index)
-         (fix:+ index end)))))
 \f
 (define (read-lines port)
   (source->list (lambda () (read-line port))))