From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Feb 2001 21:47:30 +0000 (+0000)
Subject: Grumble.  Messing around while debugging problems caused by
X-Git-Tag: 20090517-FFI~2980
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ffc636c69c87660a447b2d9aa90aa43acd965c7d;p=mit-scheme.git

Grumble.  Messing around while debugging problems caused by
incorrectly built bands.
---

diff --git a/v7/src/runtime/rgxcmp.scm b/v7/src/runtime/rgxcmp.scm
index f9155c934..3e82d3637 100644
--- a/v7/src/runtime/rgxcmp.scm
+++ b/v7/src/runtime/rgxcmp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: rgxcmp.scm,v 1.111 2001/02/05 20:08:15 cph Exp $
+;;; $Id: rgxcmp.scm,v 1.112 2001/02/05 21:47:30 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -666,20 +666,20 @@
       (let loop
 	  ((chars
 	    (if (input-match? (input-peek) #\])
-		(list (input-read!))
+		(begin (input-discard!) '(#\]))
 		'())))
 	(if (input-end?)
 	    (premature-end))
-	(if (input-match? (input-peek) #\])
-	    (begin
-	      (input-discard!)
-	      (for-each
-	       (lambda (char)
-		 ((ucode-primitive re-char-set-adjoin!) charset
-							(char->ascii char)))
-	       (char-set-members
-		(re-compile-char-set (list->string (reverse! chars)) #f))))
-	    (loop (cons (input-read!) chars))))
+	(let ((char (input-read!)))
+	  (if (input-match? char #\])
+	      (begin
+		(for-each
+		 (lambda (char)
+		   ((ucode-primitive re-char-set-adjoin!) charset
+							  (char->ascii char)))
+		 (char-set-members
+		  (re-compile-char-set (list->string (reverse! chars)) #f))))
+	      (loop (cons char chars)))))
       (output-start! (if invert? re-code:not-char-set re-code:char-set))
       ;; Discard any bitmap bytes that are all 0 at the end of
       ;; the map.  Decrement the map-length byte too.