From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Apr 2000 20:14:25 +0000 (+0000)
Subject: STRING-MOVE! now in runtime system.
X-Git-Tag: 20090517-FFI~4025
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1ef40628933814872fbdd41b8578448b79e42c21;p=mit-scheme.git

STRING-MOVE! now in runtime system.
---

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index 6f1782957..b3287aec2 100644
--- 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)))))
 
 (define (read-lines port)
   (source->list (lambda () (read-line port))))