From: Taylor R. Campbell <net/mumble/campbell>
Date: Thu, 18 Jan 2007 00:19:24 +0000 (+0000)
Subject: In DEFINE-KEYPARSER-STATEMENT-LEADER, compile the regular expression
X-Git-Tag: 20090517-FFI~773
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6122e2d99d87d633190842296fcccb3d61cca7b4;p=mit-scheme.git

In DEFINE-KEYPARSER-STATEMENT-LEADER, compile the regular expression
if it is *not* a compiled regular expression, not if it is.
---

diff --git a/v7/src/edwin/keyparse.scm b/v7/src/edwin/keyparse.scm
index 1754d6f8a..af641d707 100644
--- a/v7/src/edwin/keyparse.scm
+++ b/v7/src/edwin/keyparse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: keyparse.scm,v 1.8 2007/01/05 21:19:23 cph Exp $
+$Id: keyparse.scm,v 1.9 2007/01/18 00:19:24 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -78,8 +78,8 @@ USA.
   (let ((leaders (description/statement-leaders description))
 	(regexp
 	 (if (compiled-regexp? regexp)
-	     (re-compile-pattern regexp #f)
-	     regexp)))
+	     regexp
+	     (re-compile-pattern regexp #f))))
     (let ((entry (assoc name leaders)))
       (if entry
 	  (set-cdr! entry (list regexp parser))