From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Mar 1997 05:32:44 +0000 (+0000)
Subject: Fix typo.  Add another combinator.
X-Git-Tag: 20090517-FFI~5238
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=edec0ed68f6f16e7884ee572766d019a56bc089f;p=mit-scheme.git

Fix typo.  Add another combinator.
---

diff --git a/v7/src/edwin/comatch.scm b/v7/src/edwin/comatch.scm
index b95534e77..63e5a4ca7 100644
--- a/v7/src/edwin/comatch.scm
+++ b/v7/src/edwin/comatch.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: comatch.scm,v 1.2 1997/03/08 00:16:10 cph Exp $
+;;;	$Id: comatch.scm,v 1.3 1997/03/10 05:32:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1997 Massachusetts Institute of Technology
 ;;;
@@ -73,11 +73,13 @@
       (comatch:general
        (lambda (start end)
 	 (and (mark< start end)
-	      (char=? char (extract-right-char start)))))
+	      (char=? char (extract-right-char start))
+	      (mark1+ start))))
       (comatch:general
        (lambda (start end)
 	 (and (mark< start end)
-	      (char-ci=? char (extract-right-char start)))))))
+	      (char-ci=? char (extract-right-char start))
+	      (mark1+ start))))))
 
 (define (comatch:string string #!optional case-fold?)
   (let ((case-fold? (if (default-object? case-fold?) #f case-fold?)))
@@ -126,6 +128,12 @@
    (lambda (start end)
      (or (comatch-apply comatcher start end) start))))
 
+(define (comatch:not comatcher)
+  (comatch:general
+   (lambda (start end)
+     (and (not (comatch-apply comatcher start end))
+	  start))))
+
 (define (comatch:combine-rest initial combine-2)
   (lambda comatchers
     (if (null? comatchers)