From fa4cbc17b2743ca011ce8f776ef27677e0f5b996 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 24 Nov 1992 23:03:53 +0000
Subject: [PATCH] Replace mark-temporary-right-inserting-copy with
mark-temporary-copy.
---
v7/src/edwin/sort.scm | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
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)
--
2.25.1