From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Apr 1991 00:37:09 +0000 (+0000)
Subject: New procedure group-extract-and-delete-string!.
X-Git-Tag: 20090517-FFI~10728
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=98e5d379dd640a329d772a82ee87826ff12c3a5f;p=mit-scheme.git

New procedure group-extract-and-delete-string!.
---

diff --git a/v7/src/edwin/grpops.scm b/v7/src/edwin/grpops.scm
index 5cad19110..45e1692fe 100644
--- a/v7/src/edwin/grpops.scm
+++ b/v7/src/edwin/grpops.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/grpops.scm,v 1.11 1991/04/12 23:19:05 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/grpops.scm,v 1.12 1991/04/24 00:37:09 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -90,6 +90,11 @@
 (define (group-right-char group index)
   (string-ref (group-text group)
 	      (group-index->position-integrable group index true)))
+
+(define (group-extract-and-delete! group start end)
+  (let ((string (group-extract-string group start end)))
+    (group-delete! group start end)
+    string))
 
 ;;;; Insertions