From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 24 Nov 1992 23:03:53 +0000 (+0000)
Subject: Replace mark-temporary-right-inserting-copy with mark-temporary-copy.
X-Git-Tag: 20090517-FFI~8706
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa4cbc17b2743ca011ce8f776ef27677e0f5b996;p=mit-scheme.git

Replace mark-temporary-right-inserting-copy with mark-temporary-copy.
---

diff --git a/v7/src/edwin/sort.scm b/v7/src/edwin/sort.scm
index fc559ce43..e574ad5f6 100644
--- a/v7/src/edwin/sort.scm
+++ b/v7/src/edwin/sort.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: sort.scm,v 1.5 1992/11/24 04:28:08 arthur Exp $
+;;;	$Id: sort.scm,v 1.6 1992/11/24 23:03:53 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -74,19 +74,14 @@
     (mark-temporary! delete-end)))
 
 (define (identify-records region forward-record record-end)
-  (define (mark-temporary-right-inserting-copy mark)
-    (make-temporary-mark (mark-group mark) (mark-index mark) false))
   (let ((limit (region-end region)))
     (let next-record ((start (region-start region)))
       (if (and start (mark< start limit))
 	  (let ((end (record-end start)))
 	    (if (and end (mark< end limit))
-		(cons (cons start
-			    (mark-temporary-right-inserting-copy end))
+		(cons (cons start (mark-temporary-copy end))
 		      (next-record (forward-record end)))
-		(list (cons start
-			    (mark-temporary-right-inserting-copy
-			     (region-end region))))))
+		(list (cons start (mark-temporary-copy limit)))))
 	  '()))))
 
 (define (insert-reordered-region start end sorted-list unsorted-list)